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FAITES 36.15 ET TAPEZ MHZ 


CE QUE VOUS OFFRE 
NOTRE SERVICE SUR MINITEL 


Nous disposons d'un service MINITEL 
que de nombreux lecteurs connaissent bien maintenant. | 
Outre l'information diffusée, 
il devient un instrument de dialogue permanent 
entre vous et notre rédaction. 


NOS REVUES | 


Dès que la revue est chez l'imprimeur, le 
sommaire apparaît sur la page concernée. 


Le lecteur peut également y trouver la liste 
des produits spécifiques à sa revue (dis- 
quettes, cassettes, livres). 


LA BOITE AUX LETTRES 


Déjà utilisée par des lecteurs de CPC et de 
Mégahertz, elle vous permet de poser vos 
questions techniques chaque jour — 24h sur 
24h — sans avoir à attendre que la ligne de 
téléphone soit libre les mercredi et vendredi. 


Les correspondances sont relevées chaque 
jour | 

De plus, vous pouvez, entre lecteurs, écrire, 
recevoir des messages, faire des échanges 
techniques. 


Les boîtes à lettres sont ouvertes sous votre 
pseudo aux normes télématiques. 


LES PETITES ANNONCES 


24h sur 24h, 7 jours sur 7, elles sont acces- 
sibles. Nous venons d'améliorer ce service. 
Depuis le fer janvier 1987, c'est chaque 
jour que les annonces sont mises en place. 
De plus, vous pouvez DIRECTEMENT pas- 
ser vos annonces sur le serveur. 


DES INFORMATIONS 


Des informations sont à votre disposition et 
régulièrement mises à jour, ainsi que les 
éventuelles corrections de listings en cas 
d'erreur. 


| 


NOS PRODUITS | 


Nos nombreux revendeurs peuvent utiliser | 
le MINITEL pour passer commande. L'en- | 
semble des produits disponibles est présen- | 
té. Nous avons simplifié au maximum la pro- | 
cédure. Lecteurs et revendeurs peuvent aus- 
si vérifier si le produit est disponible et quel 
est son prix de vente public. 


36. 15, TAPEZ MHZ. 
ET FAITES VOTRE CHOIX 


Que ce soit par courrier, par téléphone (les mercredis et vendredis) ou par l'intermédiaire de 
votre serveur (3615, code MHZ), nous sommes là pour vous aider, vous aiguiller dans vos choix. 
Néanmoins, ne confondez pas la rédaction avec nos annonceurs. Eux seuls pourront vous ren- 
Seigner sur un nouveau produit ou sur les prix et disponibilités des périphériques que vous con- 
voitez. Constituez votre carnet d'adresses à partir des publicités parues dans la revue et, lors- 
que vous vous déplacez, écrivez ou téléphonez, un seul conseil : recommandez-vous de ‘CPC’. 
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Inspection des ventes : 
Christian CHOUARD. 


170, rue Antoine Dansaert 
1000 BRUXELLES — tél. 513.53.58 


scientifique mais non commercial. Ces réserves 
heros qi également aux logiciels publiés dans 
revue. 


Un faux compatible est un poison! 
voici l'antidote : 


L'ORDINATEUR DE MARQUE FRANÇAISE 


Ta MEMOIRE, à 
Ton TURBO, ta SOURIS 


2 Ton DOS +, ton GEM, - 
)\ Ton TURBO-PASCAL, : ue 
@ Ton CONTRAT DE MAINTENANCE ( 


| Ton PRIX... JE CRAQUE! 


Photo non contractuelle 


SConi 
M H { en 24 heures ouvrées assurée dans CGEE ALSTHON 
ain enance les laboratoires du réseau national de 
Élu | TECHNOLOGIE-RECHERCHE & APPLICATIONS NOUVELLES 
AS PU Z! Les Fourches - Les Espaluns - Avenue Lavoisier 
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DES COMPATIBLES PARTOUT 
De nombreux constructeurs ae etn 
proposent des compatibles PC à des pr - 
Les Jasmins Turbo par exemple se : 
grande surface con des produits de 
courante 
Toutefois. la grande va 
ainsi que les différents niv 


au 


l'acheteur non averti un probl 
Voici quelques critères qui vous per ont de 
le type de matériel le mieux adapté à vos besoins 


COMPATIBILITE SOFT 
Tout logiciel écrit pour le standart IBM PC. tant 
pas protégé pour l'exc té d'une as do 
donnée, doit tourner complètement sans au 
avec la version du système d'exploitation ce 
comme MS DOS. DOS PLUS. PROLOCG. e 


COMPATIBILITE HARD 

L'intérêt du PC est d'être un systèm 
possible de rajouter n'importe quelle carte électronique 
çue pour le standard. cartes graphiques couleur haute réso: 
lution EGA. contrôleurs de disque dur. contrôleur d unité de 
sauvegarde, carte d'entrées/sorties, carte de commu 
tion, ou encore, une carte d'analyseur logique pourq 

Encore faut: vérifier que ! on dispose de la pla 
saire pour installer ces cartes 

Les écarts entre les connecteurs de: 
lisés mais certaines cartes trop ép 
de deux connecteurs [l sera bon de s I 
sible de disposer d'au moins cinq connecteurs | 
voir par carte un emplacement de 34x12 cm 
seur de 2 cm 


TURBO 
La vitesse de ! IBM PC est de 4.77 MHz Ilexiste main 
nant des PC appelés « TURBO ». qui tournent à 8 MHz Ces 
derniers pert mettent d obtenir des per 28 d 
1,5 fois supérieur en vitesse àl'IBM PC Af 
une réelle compätbl té. vérifiez que votre Turi 
également en 4.77 MHz Ces deux vitesses doivent être c 
mutables au clavier 


r qu'il est pos 


bres Pré 
ir une épais 


ouvrés. 


HQ pour Haute Qualité. Chaque modèle est équipé 
d'office d'une carte turbo double vitesse 8 MHz et 4,77 
MHz commutable au clavier, indispensable pour une vraie 


compatibilité. De la carte CGA : 16 couleurs/graphique 
avec une sortie vidéo composite couleur, une sortie vidéo 
N et B, une sortie RVBI, une interface crayon optique. 
La carte multi 1/0 comprend deux ports série dont un 
équipé. Une interface imprimante parallèle Centronic, une 
entrée manette de jeu, une horloge/calendrier permanent 
sauvegardée par batterie, un contrôleur pour deux lecteurs 
de disquette. 


Clavier AZERTY aux normes IBM avec indicateurs 
lumineux. 


Souris trois touches JASMIN Mouse de haute pré- 
cision et faible course. 


Boîtier métallique « FLIP TOP ». Alimentation 150 W, 
ventilée, intégrée dans l'unité centrale, ce qui permet une 
évolution sans soucis de la configuration du système. 


Carte-mère équipée d'office de 640 K RAM, du 
microprocesseur 8088-2, d'un emplacement prévu pour 
le coprocesseur arithmétique 8087 et de 8 ports d'exten- 
sion à connecteurs longs. 


DIRAN 5 CGEE ALSTHOM "+ « 7 


A compter du 1° Mars 1987 TRAN vous offre une garantie éten- 
due d'un an dont la maintenance sera assurée par le réseau natio- 
nal des laboratoires CGEE-ALSTHOM. Vous assurant le dépan- 
nage de votre JASMIN TURBO dans un délai de trois jours 


COMMENT ROSES UN COMPATIBLE PC 


CARTE MERE : 


fe] carte mère es 


œu ystème De plus en plus 
p els réclame de la mémoire En par- 
er des logiciels intégrés t professionnels. 512K RAM sont 
uvent insuffisa 
ez dès le départ 
xtention ultérieure serait plu 


reuse 
augmenter de 
CIO par adjonc- 
ussi si vous pen- 
une carte mèr! re possédant un 
ce circuit 


ALIMENTATION : 
Le point tabl 


C est d'au moins 
re e PC plu us d une heure 


même e que d d d j aigmenter la puissance deal all 
mentation p - ange 

Une alimentanon de 150 W sera préférable surtout si 
vous envisagez le rajout de cartes d'extention. ou encore | uti- 


usation d'un disque dur 


BOITIER 


(orages. néons) p 
1ettant de préié- 
s Les boîtiers 


appelé « Fhp-Top » sont S 1 
€ nple pression 


e rapide par sin 


à la façon d un 


LES COMPATIBLES PC LES PLUS VENDUS 
LES JASMINS TURBO HQ TELEMATIQUES 


L'ASSURANCE DES GRANDES MARQUES . 
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Chaque JASMIN Turbo est accompagné : 


+ Du système d'exploitation DOS PLUS, de DIGITAL 
RESEARCH INC., compatible avec le système MS.DOS 
2-11 et CP/M 86 qui rend possible les transferts de fichiers 
entre les deux standards. 


+ Du système d'exploitation d'environnement graphi- 
que G.E.M. de DRI qui permet au JASMIN Turbo d'utili- 
ser toute application écrite sous GEM disponible sur le 
marché. Par exemple le GEM-DESKTOP (pour bureaux) 
permet d'utiliser le JASMIN avec des icônes comme un 
MACINTOSH. Convivialité oblige ! 

+ Du langage structuré le plus vendu au monde : 
TURBO/PASCAL de BORLAND avec son manuel 

+ Du logiciel MASTER MIN qui transforme le JAS- 

MIN connecté à un Minitel en serveur VIDEOTEX 
monovoie. 
Tous les logiciels ludiques et professionnels « tour- 
nent » sur les JASMINS Turbo HQ. Nous n'avons 
pas encore trouvé de logiciel qui ne marche pas avec 
les JASMINS. 

Le modèle HQ-2 est équipé de deux lecteurs 51/4. 

Le modèle HQ-20 est équipé d'un lecteur 51/4 et 
d'un disque.dur 20 MB rapide (65 m/s) avec parkage de 
tête automatique au coupure de courant. 


—_—_———————————————————————————————]___—_—_—___——….…"…—…— ….…—….…— 
IBM PC/XT sont des Marques Déposées de International Business Machine Corporation. DOS PLUS-GEM sont des Marques Déposées de DIGITAL 
RESEARCH INCORPORATION. TURBO-PASCAL est une Marque Déposée de BORLAND INTERNATIONAL. JASMIN-TURBO est une Marque 
Déposée de T.R.A.N.. MASTER MIN est un logiciel de MINI PUCE. La Société T.R.A.N. se réserve le droit de modifier toute spécification sans préavis 


CLAVIER : 


Attention, le PC n est pas dans le clavier ! Un clavier à 
curseur séparé, vous sera peut-être utile par la suite. Vous 
devez pouvoir changer de clavier à votre convenance. Pour 
cela. 1l vous faut un clavier aux normes de connection IBM 


LA SOURIS 


Il existe de nombreuses qualités de souris dont les prix 
varient de 200 F à 2000F 


La qualité d'une souris, réside dans sa sensibilité, sa 
résolution. sa course La précision doit être bonne sur une 
petite course Il doit être possible de balayer l'écran sans 
avoir à balayer tout le bureau 


Attention, certains logiciels nécessitent l'emploi de trois 
touches sur la souris 


DISQUE DUR 


Lorsque vous travaillez avec de nombreux fichiers ou de 
longs fichiers, un disque dur vous est nécessaire. Tous vos 
logiciels et fichiers seront stockés en permanence sur le dis- 
1e dur qui peut suivant le modèle contenir 10, 20 ou 40 mil- 
s d'octets. Le temps d'accès moyen à une information 
varie de 30 m/s à 300 m/s On dit d'un disque dur qu'il est 
rapide. lorsque son temps d'accès moyen est inférieur à 80 
m/s 


Pour ne pas avoir de problèmes, préférez les disques 
durs à parkage de tête automatique. En cas de coupure de 
rant où lors de la mise hors tension de votre « becane », 
les têtes de lecture de votre disque s'éloigneront de la sur- 
face magnétique afin de se caler pour se protéger contre 
les chocs et vibrations notamment lors des déplacements 
Les anciens modèles ne possèdent pas cette fonction qui 
nécessite l'emploi d'un utilitaire I] suffit d oublier une seule 
fois de parkeret adieu le travail de plusieurs mois. Le dis- 
que dur à parkage de tête automatique est un « MUST » de 
sécurité 


Un PC non évolutif ne sera jamais un PC 


Michel ROY 


TARIF AU 1e MARS 1987 


Sans moniteur Avec moniteur Avec moniteur 
mono 12" couleur 14” 


HQ-2 6.483,97 HT 7.242,83 HT 8.760,54 HT 
HQ-20 10.615,51 HT 11.374,36 HT 12.892,07 HT 
Imprimante qualité courrier CITIZEN 120D, 

120 cps 00" Col rss mr ue M 2.099,49 HT 
Imprimante qualité courrier plate 

type BROTHER ou CENTRONIC 180 cps, 

136 col. grand chariot.................. 4.207,42 HT 
JASMIN Mouse, souris trois touches 

haute précision. ......................... 674,54 HT 


Toutes ces imprimantes sont compatibles IBM. 


Le tarif ventes diverses est envoyé avec la 
documentation. 


Des logiciels professionnels pour comptabilité, 
facturation, gestion sont disponibles. Téléphoner à 
T.R.A.N. pour renseignements complémentaires. 


Je désire recevoir une documentation complète, tarifs, 
liste revendeurs, sur la gamme 
JASMIN TURBO HQ. 


Code postal: 2:61: TélEveremarentes 
Renvoyez ce coupon à : 


TRAN INFORMATIQUE Avenue Lavoisier 
ZI. Les Fourches, Les Espaluns 
83160 LA VALETTE DU VAR-Tél. 94.21.19.68 


STRYFE 
ERE INFORMATIQUE 
Arcade/Action 


Avec ce nouveau logiciel d'Ere 
Informatique, vous êtes invité à 
évoluer dans un royaume de 
Féérie, où règnent mystère et 
affrontement perpétuel entre les 
bons gnômes et les Forces du Mal 
dirigées par le grand Morvelhin. 
Bien entendu, vous représentez les 
gnômes, prisonniers de Morvelhin, 
qui ont décidé de s'échapper et de 
se venger malgré le nombre et la 
puissance des adversaires : 
Kobolds, Trolls, Esprits verts ou 
Fantômes. Pour vous aider dans 
votre entreprise (qui se traduit 
quand même en vingt six 

chapitres !), vous disposez de 
jambons pour vous redonner de 
l'énergie, de coffres pour gagner 
des points d'expérience, de potions 
qui, utilisées à bon escient, 
détruisent tout. les deux objets 
qui restent sont indissociables : la 
clef d'argent doit être ramassée en 
premier pour pouvoir prendre celle 
en or qui est ‘la clé” d'une 
grande partie de vos problèmes 
puisqu'elle vous ouvre les passages 
d'un chapitre à l'autre !.… 

Succès assuré pour ce jeu qui a 
deux qualités primordiales : d'une 
part, l'action est très rapide... 
(heureusement que la pause est là 
afin de pouvoir s'octroyer un peu 
de repos de temps en temps !...); 
d'autre part, les graphismes sont 

| superbes et ont l'avantage d'être 
variés. Il faut ajouter à tout cela 
un dernier détail qui a son 

| importance : vous pouvez jouer en 
solitaire ou en équipe puisque deux 
| personnages sont accessibles. 


MADDOG 
TITUS 
Arcade/Aventure 


Voici la seconde production de 
Titus ; en effet, souvenez-vous 


* 
DENT a CU ANS NT Ne EE 


d'Erebus, aventure ayant fait 
l'objet d'un banc d'essai dans le 
numéro 18 de CPC... 

Cette fois, il s'agit tout 
simplement de mener une vie de 
chien. Savez-vous de quoi est 
faite une journée de chien ?.… Tout 
d'abord, sortir de la niche, s'étirer, 
sauter la barrière et aller fläner 
par-ci, par-là. Ce jeu est tout ce 
qu'il y a de plus pacifique puisqu'il 
s'agit seulement de vivre (ce qui 
n'est pas forcément le plus 
évident...) 

Quel est le but de ce logiciel ? Il 


vous suffit de réaliser les désirs 
du chien qui a, de temps à autre, 
des idées lumineuses : par exemple, 
il a une envie soudaine d'os. vous 
partez donc à la recherche de l'os, 


| le ramassez et le rapportez à la 


niche. Bien sûr, vous allez 
rencontrer quelques contraintes : à 


| l'écran, un soleil vous indique par 


sa position le moment de la 
journée ; si vous voulez qu'il y ait 
un lendemain, il vous faut 


| absolument être à la niche au 
| coucher du soleil. Par ailleurs, le 
chien n'en fait parfois qu'à sa 


tête : il s'arrète brusquement ou va 
même jusqu'à faire pipi. Enfin 
vous devez éviter à tout prix le 
danger qui guette chaque chien 
errant : la fourrière. 

Somme tout, un logiciel que l'on 
peut qualifier de mignon, où le 
sujet est original et l'animation 
fort réussie et qui intéressera 
toute personne partisane d'actions 
non violentes. 


BOMB JACK II 
ELITE/UBI SOFT 
Arcade 


Le super héros Jack, ayant fait un 
massacre lors du premier épisode, 
revient à l'écran tel une bombe... 
Dans ce nouveau jeu d'arcade, le 
principe de base reste le même 
que dans la première version mais, 
maintenant, Super Jack est devenu 
Super Super Jack car il est armé 
et, par conséquent, d'autant plus 
dangereux. 


Dans chaque décor {il y en a 
quand même 40), il doit amasser 
un trésor par petits sacs 
interposés mais, attention, il faut 
le faire dans un ordre bien précis. 
En effet, dans ce cas, et dans 
celui-là seulement, vous obtenez un 
bonus pour au moins six sacs 
ramassés et un nouveau Jack pour 
neuf sacs. Heureusement que 
Super Jack dispose de son 
poignard pour lutter contre les 
reptiles et gagner ainsi d'autres 
espaces ! 


De très bonne qualité graphique, 
ce logiciel est doté d'une action 
très rapide. Avis à tous ceux qui 
ont pulvérisé les scores avec Bomb 
Jack ! Vous êtes invité à faire de 
nouveau vos preuves avec Bomb 
Jack Il, car il en vaut la peine ! 
Quant à ceux qui n'auraient pas eu 
le numéro 1, il est offert sur la 
deuxième face de la disquette... 


b : 3 (à 
0000000 
1900 


0015300 
9110 


SCORE 
EneRG 
Otiects 


Fée qui déchaîne la 
| passion d'un certain nombre de 
At personnes tous les 1° janvier de 
# chaque année, et ce pour un petit 
| mois : la course Paris-Dakar. 
Me êtes mL d'abord convié à 
s (un certain crédit 
oué au départ, vous 
2 le mieux possible 
dépenses fin d'être sûr 
EL ren entier au bout de la 
Hi ne Ceci étant fait, vous 


ù Pa Va 


; A an a 2 lesquels vous 
| allez vous 
M + 


1 


eSurer, Car, en effet, 
us partez en dernière position. 


les attraper, les dépasser, TE 
mini imiser, dans | la mesure du 
er ombre d ‘incidents 
Jes, VOUS confronter aux 
pièges c désert et terminer la 
ï ce à meilleure position tout 
El étant, bien sûr, dans les délais. 
l'écran se divise en deux parties 
j a piste vue de votre 


1t} pour éviter tout 
li 


dr sie et coûtent 
1 : < Par RO 


c > qui SE de prendre 
ais fait Subir plus 
| a machine. Ag 


emple, : ne passez 
s lement vos 


PA RpASANU [ 
| m l'aurez pas toute la | puissance à 
essaire ! « Malgré tout, ilya. 


72 K ”J 
Ca NE on A Le e x 


cinq à autres CRE 


lors, il ne vous reste plus qu' à * 


Ft pi ie pour doubler 
0 | 


aie  d être édite au 


HARRY ET HARRY 
MISSION TORPEDO 
|ERE INFORMATIQUE 


Aventu re ; 


Dans la série Harry et Harry, voici 
le second épisode : vous aviez 


| boîte de Rajmahal mais voici qu'un 
soir, aux portes du Hiklass 
Building, vous vous faites agresser 
par les Harry qui réussissent à 
vous reprendre la boîte. Pour ceux 
qui ne le savent pas, Harry et 
Harry sont les gorilles du Boss 
qu'il va falloir absolument 
retrouver. 


| Seulement, aujourd’ hui, cette 


étrange histoire intéresse les 
| services secrets. Vous allez donc 
| devenir l'agent secret X38 et 
travailler en équipe avec une 
| certaine Marthe Hari : le 
dénouement de l'histoire devra se 
| faire à l'Opéra, mais de 
nombreuses péripéties vous 
attendent auparavant !.. 
Ce logiciel s'adresse aux fervents 
d'histoires policières et aux 
| amoureux des années 30. En effet, 
les graphismes réussissent tout 
particulièrement à recréer 
l'atmosphère de Los Angelès de 
ces années-là (ou l'idée que l'on 
s'en fait...) ainsi que l'ambiance de 
cinéma noir. Les dialogues sont 
| parfois d'un humour noir et 


souhait. un jeu d'aventure qui 
_s'adresse tout particulièrement aux 
| adeptes de policiers. noirs. 


nee 
CHIPS 
Simulation sportive 


Les adeptes de sports en équipe 

| connaissent déjà le basket-ball, le 

| football ou le rugby sur leur micro- 

“ordinateur ; ils vont maintenant 

| pouvoir ajouter le volley-ball. 

| Chacun connaît le principe de ce 

| jeu : une salle, un filet tendu au 

milieu à 2,43 m du sol et deux 

‘équipes, de six joueurs chacune, se 

renvoyant une balle légère suivant 

certaines règles Chaque set se 

joue en 15 points... È 

| Dans ce logiciel, deux modes sont 

_ disponibles : débutant ou 

! _ professionnel. Dans le second 
mode, vous avez trois coups 

| possibles : une longue passe, un 

smash ou une manchette. Pour 


| réussi à éclaircir le mystère dela | 


| l'histoire est compliquée à de 
_astreint à la dure loi. 


Sn ni 


suivre le mouvement de la balle, 
vous avez un bon scrolling d'écran 


vous permettant de passer d'une 


équipe à l'autre. 

Comme dans toute adaptation de 
sport collectif à l'écran, on 
retrouve au départ le problème de 


ne pas trop savoir quel j joueur va 
__ être concerné par la passe... 
D'autre part, avant de pouvoir 


véritablement profiter du jeu, il 
faut s'entraîner un certain temps 
pour faire disparaître notamment 
un handicap se situant au niveau 
de la perspective. 

En définitive, malgré quelques 
imperfections, il est possible de 
voir ou de faire de beaux matches 
car trois possibilités de jeu vous 
sont offertes : seul contre 
l'ordinateur, deux joueurs ou alors 
(le plus fatiguant !) ordinateur 


| contre lui-même. 


ASPHALT 
_ UBI SOFT 
| Arcade/Aventure 


En cette année 1991, vous êtes 
des 
autoroutes. En effet, une nouvelle 
loi est passée autorisant les 
véhicules à être équipés en armes 
dans certains secteurs des Etats- 
Unis. Vous pensez bien que les 
gangs de pillards ont aussitôt tiré 


|| profit de cette nouvelle 


possibilité. 

C'est dans cet environnement 
incertain que vous vous retrouvez 
au volant d'un 38 tonnes avec 
pour mission d'emmener un 
chargement de bombonnes de gaz 


| jusqu'à Détroit ; votre itinéraire 


emprunte l'autoroute 14 qui est 
précisément la voie par laquelle " 
plus aucun convoi ne parvient à 
destination !... : 
I ne vous reste plus qu'à relever 
le défi après avoir équipé au mieux 
votre véhicule : plaques de 30 mm, 
pneus renforcés, tourelle armée de 
M:-16, lance-flammes et mines. 
Vous disposez alors de tout un 


| arsenal pour vous occuper des 
motos, side-cars et voitures qui 
| vont vous assaillir de façon 


durable et continue ! 


Dans ce logiciel, l'action se déroule 


latéralement et vous n'avez aucune 
influence sur la vitesse de votre 
engin ; d'autre part, l'animation 
n'est pas des plus rapides, ce qui 
ne veut pas dire que le niveau du 
jeu est très facile ! Les graphismes 
sont de bonne Hush) et vous avez 


” 
pet L Pr ol 9 % p 


| indiquant les endroits endommagés 


l'avantage d'avoir à l'écran un | 
schéma de votre camion vous 


ainsi que le degré de casse ! ê 
Somme toute, un bon moment de: Ter 
distraction. x ET EE 0 


LA CITE PERDUE rie 


EXCALIBUR XPAÏN ti: 
Aventure AL # 


L'expression ‘partir à l'aventure” 
n'est pas seulement une banale 
formule en ce qui concerne ce 
nouveau logiciel d'Excalibur. RTC PUS 
Vous commencez ce long parcours gt 
à bord d'un avion, “volant” au Ê : 
secours de votre ami, le professeur 
Mac Dowell, qui vous a invité à sa | 
villa et qui semble avoir de graves 
problèmes. Vous ne pouvez pas | 
savoir comme le chemin entre AS “UE 
l'aéroport et sa villa peut parfois | 
être long, mais bienheureux êtes- LES 
vous si Vous parvenez à surmonter Piel 
les pièges !.. Car vous serez alors | É 
suffisamment ‘’échauffé” pour SR EN 
débuter vraiment votre aventure... NASA 
En effet, il vous faudra traverser af 
une forêt, voyager à travers les " ARE: 
souterrains pour vous rendre dans | 
un mystérieux château ou } 
| escalader la montagne... Après 
toutes ces péripéties, et après 
seulement, vous atteindrez peut. | Fr. 
être la tant attendue Cité Perdue. | 1 ® 
Comme vous pouvez le constater, Lea : 
la Cité Perdue est une aventure à | 
plusieurs épisodes ; il faut bien dire | 
que l’on s’en doute lorsque l'on slt a 
voit le volume occupé par le | 
programme : pas moins de deux SAIÉE Ce 
disquettes ! x ns 
D'autre part, comme toute 
aventure digne de ce nom, vous | 
avez tout à découvrir : aussi bien TE 
votre mission que le vocabulaire à | 


LA TEMPÉRATURE EST pE 35 DEG, 
F EN % E RURSAY 


utiliser. A pare de ne pas 
être allergique à ce type de j jeu « où He 
vos démarrez plus ou moins à É 
l'aveuglette, vous avez toutes les” 

chances d'être captivés par ce 


- A a 


Le AL: 


logiciel avec un sujet intéressant 
et une bonne réalisation. 


VARISOLVER 
EQUASIM 
Utilitaires 


Les financiers, les matheux et les 
scientifiques de tout poil vont 
avoir leur ration de chiffres avec 
Varisolver. Ce programme leur 
res , entre autres, la résolution 


Le logiciel nécessite le chargement 
préalable de CP/M 2.2 ou CPIM + 
pour pouvoir fonctionner. Varisolvet 
demande alors le nom du modèle 
(à votre choix), et sa forme. Il 
s'agit le plus souvent d'une ou de 
plusieurs fonctions mathématiques. 
La suite se déroule sous forme 
d'un tableau présentant les 
variables utilisées, ainsi que les 
options de Varisolver. 

La première étape consiste à 
entrer les valeurs des différentes 
variables grâce aux flèches du 
curseur. 

L'intérêt du programme apparaît 
lors du mode calcul. En effet il 
permet de calculer la valeur de 
n'importe quelle variable à tout 
instant : la modification des autres 
paramètres est automatique. Le 
calcul itératif comprend la 
dichotomie et la méthode de 
Newton. Ces derniers vous 
permettront de trouver presqu'à 
coup sûr les racines de vos 
équations quelles soient non- 


Nouveaux logiciels 
Software project vient de sortir la 
suite de DRAGON'S LAIR, elle 


LES ABONNES 
DE CPC 
RECEVRONT 
DESORMAIS 


GRATUITEMENT 


LES NUMEROS 
HORS SERIE 
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linéaires ou en système. Si vous 
désirez une représentation 
graphique, rien de plus facile : il 
suffit de presser “’G'’ pendant la 
phase de calcul et la courbe se 
tracera simultanément sur le côté 
droit de l'écran. La position des 
axes peut être modifiée pour mieux 
“cibler” les parties intéressantes. 
Ce qui est caractéristique de ce 
programme c'est l'ouverture sur 
l'extérieur : Varisolver accepte des 
fichiers ASCII comme variateurs, 
c'est-à-dire comme données 
externes accessibles pendant 
l'exécution. En sens inverse, vous 
pouvez sauver des “fichiers photo” 
comprenant l'équation, les variables 
et leurs valeurs actuelles, en vue 
de les utiliser comme illustration 
dans un texte. L'imprimante est, 
elle aussi, mise à contribution. Son 
utilisation donne des “hard-copy"” 
de l'écran graphique. Dans le 
même ordre d'idée le logiciel peut 
envoyer et recevoir des données 
ASCII, venant d'un autre 
ordinateur, par l'intermédiaire du 
port série (l'interface est 
nécessaire). Varisolver est un 
programme puissant et assez 
simple d'utilisation, en tout cas 
pour les initiés. En effet malgré un 
manuel bien fait, il faut posséder 
un bagage mathématique minimum 
pour tirer le maximum de ce 
programme qui est, à ma 
connaissance, le seul en son genre 
au sein de la gamme CPC. 

Alors, entrez vos formules 
magiques, en n'oubliant tout de 
même pas que ces dernières ne 
peuvent dépasser 160 caractères. 


s'intitule tout simplement ESCAPE 
FOR SINGE'S CASTLE, et surpasse 
au niveau des graphismes la 
précédente version. Un logiciel 
semble faire du bruit Outre- 
Manche, il s’agit de The Sentinel 
produit par l'inépuisable Firebird. 
Ce jeu est d'une conception 
originale puisqu'il mélange réflexion 
et représentation en 3D pleine ! 
Durell annonce une bataille 
spatiale : Sigma 7 et le retour de 
l'homme (ou plutôt de la femme) 
en noir avec Saboteur |! sous-titré 
Avenging Angel. Spécialiste du 
genre, Océan nous offre une 
nouvelle adaptation de film: Short 
Circuit. La vedette est un robot 
intelligent : Number Five. Les 
aventuristes (amateurs d'aventures) 
découvriront avec joie 
“Imagination” qui les entraînera de 
la troisième guerre mondiale à 
l'espace intersidéral en passant par 
une mystérieuse citadelle. Encore 
et toujours un produit de Firebird. 
Les PCW ne sont pas oubliés 
puisqu'Elite vient d'adapter Frank 
Bruno's Boxing sur le Joyce. 


PROGRAMMEUR 
STUDIO 

COBRA SOFT 
Utilitaire 


Nouveau volet de la collection, 
“Programmeur Studio” offre à 
l'amateur de programmation une 
série de cinq utilitaires réunis sur 
une même disquette. 

Le premier : “’Varlist”’ sort, sur 
écran ou imprimante, la liste des 
variables d'un programme Basic, 
ainsi que les numéros de lignes 
correspondants. 

“Crossref” donne une liste des 
numéros de lignes contenant des 
branchements et les instructions 
GOTO, GOSUB et autres RESTORE 
à l'origine de ces branchements. 
“Deleteur"’ gagne de la place en 
mémoire grâce à la destruction des 
REM, instructions servant 
uniquement aux commentaires ou à 
la présentation du listing. Ce 
programme est toutefois limité aux 
utilisateurs de 464. 

Ces différents utilitaires sont écrits 
en binaire. Leur chargement se fait 
donc par un MEMORY suivi du 
LOAD habituel, puis d'un CALL 
adresse. 

Le quatrième utilitaire est un 
programme de hard-copy graphique. 
Lui aussi est en langage machine 
et possède quelques 
caractéristiques intéressantes : 
prise en compte du standard 
EPSON (DMP 2000 incluse) et du 
format particulier de la DMP 11, 
un spooler est à votre disposition, 
non seulement pour la recopie 


Du côté du hard 

Pourvu que le disque dure. Le PC 
1512 hérite en effet d'un ‘’hard 
disc’ externe ayant une capacité 
de 10 Mo à 40 Mo. Si vous vous 
sentez un peu seul, il est possible 
de réunir jusqu'à 7 ordinateurs 
possédant MS-D0S ou PC-D0S 
autour d'un “Plus Net”, disque dur 
de 20 Mo, le tout en temps 
partagé. Les prix ? De 349 à 699 
Livres pour 10 à 40 Mo et 549 
Livres pour le système ‘Plus Net”. 
L'ensemble est commercialisé par 
“Plus 5 Engineering Ltd”, tél. 14 
892.663.211. 


Le PCW compatible IBM ! 

Ou plutôt compatibilité des fichiers 
ASCII entre les machines par 
l'intermédiaire d'un drive 3" 
branché sur le compatible. Les 
fichiers Locoscript peuvent ainsi 
être transmis sans modifications. 
Le drive vous coûtera 150 Livres 
qui tomberont dans l'escarcelle de 
Plus 5. 


d'écran, mais aussi pour les 
instructions LIST #8 et PRINT 

# 8 (rappelons qu'un spooler est 
une partie de mémoire servant à 
stocker des données utilisées 
ultérieurement par l'imprimante, 
ceci permet de reprendre la main 
pendant que l'impression continue). 
Il est également possible de forcer 
ou non l'impression de certaines 
couleurs en utilisant un POKE 
adresse couleur, 0 ou 1. 

Enfin, sur la deuxième face de la 
disquette, se trouve un éditeur de 
secteur. Les flèches du curseur 
permettent le déplacement dans le 
menu et les choix des valeurs 
désirées. Les options : piste (0 à 
39), secteur (1 à 9), format 
(CPIM, données, IBM), Drive (A ou 
B) sont assez explicites quant à 
leurs effets. ‘’Page” permet de 
commuter les 2x256 octets d'une 
piste et ‘’Buffer” autorise l'emploi 
de 16 ‘banques’ pouvant donc 
stocker en mémoire 16 pistes. Ces 
différentes options sont affichées 
en permanence au sommet de 
l'écran. Les autres commandes 
sont accessibles directement au 
clavier par la frappe d'une touche. 
"L"" provoque la lecture du secteur 
paramétré auparavant, CTRL+E 
concerne l'écriture du secteur à 
l'écran sur le disque. 

Le secteur peut être modifié grâce 
aux commandes d'édition et remis 
à zéro avec une fonction RAZ. 


Programmeur Studio regroupe un 
ensemble d'utilitaires simples et 
faciles à utiliser. Les programmeurs 
acharnés devraient y trouver leur 
compte. 


Hit Parade Anglais 
ENRENTOP 20 5 
1 GAUNTLET (US. Gold) 
22 IKARI WARRIOR (Elite) 
J'ENE : (Firebird) 
4 SPINDIZZY (Electric Dreams) 
| 5 VIE AR KUNG-FU (Imagine) 
6 SPACE HARRIER (Elite) 
7 BAT MAN (Océan) 
|_8 GREEN BERET (Imagine) 
_ 8 COMMANDO (Elite) 
10 GHOST'N'GOBLINS (Elite) 
1 THRUST (Firebird) 
12 WINTER GAMES (Epyx) 
13 SCO0BYDO0 _ (Elite) 
| 14 THE EIDOLON (Activision) 
15 SORCERY + (Virgin) 
16 JACK 
THE NIPPER  (Gremin Graphics) 
17 BOMB JACK (Bite) 
18 GET DEXTER … (PSS/Ere) 
19 THANATOS 5 (Durell) 
| 20 KUNG-FU MASTER (US. Gold) 


EN SOUSCRIPT 


Utilisez à fond toutes les possibilités de votre | 


Tout pour programmer 
votre AMSTRAD 

Véritables passionnés de l'AMSTRAD, 
les auteurs de cet ouvrage ont passé des 
milliers d’heures à concevoir, rédiger et 
tester des dizaines de programmes. 

e Des programmes opérationnels 
à 100 %. De l'utilitaire CP/M à la création 
de graphiques à haute résolution, en 
passant par des jeux sophistiqués ou la 
commande de synthétiseur de sons, vous 
développez des applications captivantes. 
e Un choix très étendu de langages 
de programmation. Le Basic, le Logo, 
l’Assembleur, le Turbo-Pascal, et ulté- 
rieurement, le Foth, le Modula.. 

e Des trucs et des conseils pratiques. 
Vous découvrez également de nom- 
breuses astuces : comment transférer du 
CPC 464 au 664, ou au 6128, comment 
insérer des utilitaires et gagner de la place 
en mémoire... 

e Vous élargissez le champ d’ac- 
tion de votre AMSTRAD. Avec la mise 
en pratique des programmes et des 
“recettes”, vous découvrez de nouvelles et 
passionnantes utilisations de votre ordi- 
nateur. 


Le complément indispensable 
de votre AMSTRAD 


Présentation : classeur à feuillets 
mobiles 400 pages grand format 
(21 x 29,7 cm). Prix de lancement 
375 F TTC jusqu’au 30.06.87. 
Après cette date, 450 F TTC. 


375 F° 


u lieu de 


Cale 
a renvoyer 


OUI, : 


ex 


votre 


ploiter toutes les 
AMSTRAD”, J'a 
je bénc ie du pr pécia 


aux Editions Weka 


ressources et augmenter les 


AMSTRAD 


Vous possédez un AMSTRAD 
CPC 464, 664 ou 6128. 


Voici enfin l’ouvrage que vous 
attendiez pour tirer le meilleur 
parti de votre micro-ordinateur : 
“Comment exploiter toutes 
les ressources et augmenter 
les performances de 
votre AMSTRAD”. 


Il traite en profondeur des 
techniques de programmation, 
ainsi que de la structure interne 

et des extensions 
de votre ordinateur. 


De plus, cet ouvrage restera 
en permanence à la pointe 
de la technique, grâce 
à un service de compléments 
et de mises à jour exclusifs. 


Editions Weka - 12, cour StEloi 
75012 Paris 


EE 


BON DE SOUSCRIPTION 


‘Comment 


de Nom 
ivrage d Prénom 
Adresse 


performances 


Code postal 
Date 


12, Cour St-Eloi - 75012 Paris 


Tout pour augmenter 
les performances 

de votre AMSTRAD 
Cet ouvrage répond “par le menu” à 


toutes les questions que vous vous 
posez sur le fonctionnement de votre . 


AMSTRAD. Il vous indique comment 
faire pour augmenter considérablement 
ses performances. 

e Votre matériel n’a plus de secrets 
pour vous. Fréquences d’horloge du 
Z80 CPU, interface PIO 8255, ports 
d'extension. Vous faites le tour complet 
de votre AMSTRAD), des schémas vous 


montrent en détail le rôle de chaque 


composant. 

e Vous mettez en place vous-même 
des extensions. Portez la mémoire .de 
votre CPC 6128 à 1Mo, mettez en place 
une interface, raccordez de nouveaux 
périphériques. Des instructions de 
montage très précises vous permettent de 
procéder, à moindres frais, à toutes les 
opérations qui augmentent les possibilités 
de votre AMSTRAD. 


Votre ouvrage est 

toujours d’actualité ! 

Cet ouvrage, unique par sa conception, 
vous fait bénéficier d’un atout consi- 
dérable : il évolue à la même vitesse que 
les techniques et le matériel que vous 
utilisez. Trois à quatre fois par an, des 
mises à jour et compléments vous seront 
envoyés (150 pages environ, 215 F, 
service annulable sur simple demande). 
Vous disposez ainsi régulièrement de 
nouveaux programmes et d’une infor- 
mation parfaitement à jour sur les 
nouveaux matériels et logiciels. 


Profitez vite de notre offre 
de lancement ! 

Pour passer le plus vite possible à la 
pratique sur votre AMSTRAD, réser- 
vez dès aujourd’hui votre exemplaire de 
“Comment_exploiter toutes les res- 
sources et augmenter les performances 
de votre AMSTRAD” Remplissez et 
renvoyez sans plus attendre le Bon de 
souscription ci-dessous, accompagné de 
votre réglement. Vous êtes ainsi assuré de 
recevoir cet ouvrage dès sa parution et 
vous réalisez une économie de 20 % par 
rapport au prix public à parution. 


Ville 


Signature 


Editions Weka (* Offre valable jusqu’au 30.06.87) 


er 


ACTUALITÉS 


Comme chaque mois, nous vous 

présentons la liste des nouveaux 

jeux annoncés pour la gamme 
Amstrad. Certains seront sans doute 
commercialisés lorsque vous lirez ces 
lignes et nous vous en présenterons un 
banc d'essai dans un prochain numéro 
d'Amstar ou de CPC. 


ACTIVISION 


Sailing vous propose de vous 
évader vers les grands horizons, 
tout en vivant l’une des plus célè- 
bres courses du monde : la Coupe de 
l'America. 
Mais, avant de prendre la mer et d'être 
victorieux, il faut dessiner votre bateau, 
choisir le pays que vous représentez, 
ainsi que vos concurrents. 
CPC : cassette, 120 F ; disquette, 160F. 


COBRA SOFT 


Dans la gamme arcade-aventure, 
l'arrivée du Chevalier Blanc est 
très attendue. Réussirez-vous à 
ne pas trahir la confiance que le roi a mis 
en vous ? En effet, vous aurez besoin de 
tout votre courage et de toute votre 
adresse pour réussir à ramener sa fille 
retenue prisonnière par des êtres étran- 
ges, dans un royaume dont jamais per- 
sonne n'est revenu. 


COKTEL VISION 


Encore de l'aventure et de l’ac- 

tion avec le retour de James 

Debug dans : Le grand saut ! Vic- 
time d'une faille spatio-temporelle, 
James Debug se réveille dans une 
caverne sombre et humide, face à des 
créatures hors du temps... et il doit abso- 
lument retrouver les clefs de l’espace 
temps avant de sombrer. 
CPC : cassette, 1465 F ; disquette, 175F. 


Avec Gorbaf, nous nous retrouvons en 
présence d'un roi désespéré. En effet, 
son fils unique Virka, héritier du trône, 
est l'otage d'un mage cruel et jaloux : 
Hingka. La seule façon de récupérer son 
fils est de prouver la force de sa foi en 
défiant les forces du mal. 

CPC : cassette, 130 F ; disquette, 160F. 
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LORICIELS 


Loriciels annonce le lancement de 
sa nouvelle collection de produits 
haut de gamme : les HITS, une 
compilation des meilleurs Loriciels ne 
comportant que les best-sellers du 
moment. Actuellement, trois versions 
sont disponibles sur Amstrad : 

HITS n° 1 : Rally I! - Infernal/Runner - 30 
Fight ; 

HITS n° 2 : Foot - Tennis - 5e axe ; 
HITS n° 3 : Tony Truand - Empire - Aigle 
d'Or. 

CPC : cassette, 160 F ; disquette, 198F. 


MICROPOOL 


Avec Uchi Mata, vous pénétrez 
dans le monde du judo qui doit 
être considéré comme un art 
ancien et subtil du combat non armé. Le 
judo permet bien sûr l'attaque et la 
défense, mais vous devez avant tout 
chercher à exploiter une ouverture. 


Vi : disquette, 170 F. 


The Pawn est un jeu d'aventure 
qui se déroule dans le monde 
magique de Kérovnia, à une 
période d'immense bouleversement 
social. Le roi Erik, souverain de Kérov- 
nia, a une cote d'impopularité qui va tou- 


m à gravel path leading north to tuo snow capped nountains. To the ves 


e 0 
a dying forest. Easlward is à vast, grassy plain and the path also continues 

southuard 

L] 


jours croissant. À vous de découvrir le 
but du jeu en utilisant à bon escient tous 
les indices que vous récoltez au fur et à 
mesure de votre aventure. 


US GOLD 


Cobra vous permet de vous glis- 
ser dans la peau de Stallone et de 
rentrer dans le feu de l’action ; en 
etfet, vous êtes Marion Cobretti, super 
flic de la ‘Brigade Zombie’, et vous avez 
pour mission de libérer le superbe man- 
nequin Ingrid Knutsen qui est prisonnière 
d'une armée de tueurs fous... 


Les fervents adeptes de bowling vont 
pouvoir s'entraîner à l'écran grâce à 10th 
Frame ; après avoir choisi votre niveau 
de jeu, serez-vous capable de faire un 
strike. Si ce n’est un turkey ? 


LES EDITEURS D'OUTRE-MANCHE 


Cascade Games annonce pour 
Amstrad une compilation de deux 
jeux labyrinthe, Activator et 
Questor, sous le nom de disquette 50. 
Sortiront bientôt sur vos écrans, grâce 
à Gremlin Graphics, un jeu d'arcade Kra- 
kout d’une part et un entraînement inten- 
sif au karaté avec Samurai Trilogy. 
Enfin, A'N'F' Software nous communi- 
que l'apparition de deux nouveaux 
titres : Nether Earth et un nouveau war- 
game Legions of Death. 


SAV AMSTRAD 


Dorénavant, pour tous les appa- 
> reils donnant lieu à un retour 
(casse ou défaillance technique), 
vous pouvez vous adresser aux stations 
services agréées Amstrad correspondant 
à votre département. Vous trouverez 
toutes les stations services sur la liste ci- 
après (fournie par Amstrad France). 


SYSTEMES EXPERTS 


Softissimo annonce pour fin mars 
(en version anglaise) un généra- 
É teur de systèmes experts : VP- 
Expert. La version française est prévue 
pour le deuxième trimestre 1987. Etant 
doté de puissants outils de développe- 
ment de systèmes experts, VP-Expert 
veut apporter la qualité de l'interface uti- 
lisateur (affichage graphique des règles, 
arbres de décision...) et la liaison avec les 
logiciels de l’entreprise (par exemple, la 
création de règles peut être automatisée 
à partir de Lotus et dBase). 

Disk PC et compatibles : 1500,00 F HT. 


CITE INFORMATIQUE 


Pour la seconde fois, la Cité Infor- 
matique de Lyon va être le point 
de ralliement pour tous les mor- 
dus de l'informatique. Vous qui en fai- 
tes partie, prenez votre agenda et notez 
les 15, 16 et 17 mai 1987, dates pen- 
dant lesquelles se dérouleront les 3 jours 
Amstrad, PC et Minitel de Lyon. 
L'Amstrad, les PC et minitels sont des 
matériels performants qui allient la qua- 
lité de leurs produits à un prix très attrac- 
tif ; par là-même, ils s'adressent au grand 
public et au secteur semi-professionnel. 
C'est pourquoi une trentaine d'’expo- 
sants seront présents pendant ces trois 
jours, afin de présenter leurs nouveau- 
tés, logiciels, accessoires et extensions. 
Nous vous invitons à profiter de cette 
occasion pour nous rendre visite puisque 
CPC, PCompatibles et Amstar seront 
présents lors de ce salon... 


CLUB AMSTRAD A MONTPELLIER 


Le CESAM (Club des Enragés Sur 
Amstrad) est heureux de faire 
part de sa création. || est consti- 
tué par des Amstradistes qui sont ges- 
tionnaires, techniciens. ou autres. 

Pour une première cotisation de 50 F, il 
est fourni un annuaire de tous les mem- 
bres du club. Si vous voulez plus d'infor- 
mations sur tous les autres avantages 
proposés, un numéro de téléphone est 
à votre disposition : 67.64.25.61. 


TRANSFERT TASWORD 3°'-5''/4 ? 


Les trois programmes TASWORD 
CPC-PCW-PC sont théorique- 
ment compatibles au niveau des 
fichiers. mais, comme les supports, les 


OU FAIRE REPARER 


VOTRE AMSTRAD ? 


AMSTRAD FRANCE (SAV - PIECES DETACHEES) 


Bat 16, rue de Wolfenbuttel 
Les Postillons-des-Bruyères 
92310 Sèvres 


Tél : 16.1.45.34.11.74 
Responsables : S.A.V. : M. Ryan 
Pièces détachées : M. Landet 


STATIONS TECHNIQUES AGREEES 
POUR LE SAV AMSTRAD 


Depts : 75, 78, 91, 92, 93, 94, 95 
STATION : VISION HI-FI SERVICE 
13-15, rue Vaucouleurs 

75011 Paris 


Depts : 14, 27, 28, 50, 61, 76 
STATION : B.B.S. ELECTRONIQUE 
20, rue de Renard 

76000 Rouen 


Depts : 59, 60, 62, 80 
STATION : ARAMIS 
666, avenue du Tremblay 
Z.I. de Vaux 

60100 Creil 


Depts : 16, 17, 23, 36, 37, 41, 44, 49, 
53, 72, 79, 85, 86, 87 

STATION : M.E.C. 

253, rue Auguste-Chevalier 

37000 Tours 


Depts : 02, 08, 10, 51, 52, 55, 57 
STATION : AMSERVICES CHAMPAGNE 
44, rue du Docteur-Thomas 

51100 Reims 


Depts : 04, 05, 06, 07, 13, 20, 26, 83, 
84 

STATION : SODISELEC 

1, rue Consolat 

13001 Marseille 


Depts : 24, 32, 33, 40, 47, 64, 65, 82 
STATION : MICRO-PYRENEES 

41, rue du 4-Septembre 

65000 Tarbes 


Depts : 01, 03, 21, 38, 39, 42, 43, 63, 
69, 71, 73, 74 

STATION : D.D. TECHNIQUE 

2, rue d'Arménie 

69003 Lyon 


Depts : 25, 54, 57, 67, 68, 70, 88, 90 
STATION : M.E.S. 

108, avenue de Colmar 

68000 Mulhouse 


Depts : 18, 45, 58, 89 
STATION : M.E.R.C.I. 

23, rue de la Mouchetière 

ZI d'Ingre 

45140 Saint-Jean-de-la-Ruelle 


Depts : 29, 22, 35, 56 

STATION : S.C.E.D.I. INFORMATIQUE 69 
32, rue de Douarnenez 

29000 Quimper 


Tél : 16.1.43.38.97.31 
Responsable : M. Chabert 


Tél : 16.35. 70.89.92 
Responsable : M. Briffoteaux 


Tél : 16.44.25.30.58 
Responsable : M. Tortora 


Tél : 16.47.38.00.21 
Responsable : M. Vaugeois 


Tél : 16.26.40.33.99 
Responsable : M. Leroy 


Tél : 16.91.95.77.91 
Responsable : M, Boirreau 


Tél : 16.62.93.70.71 
Responsable : M. Miravete 


Tél : 16.78.62.81.89 
Responsable : M. Delaye 


Tél : 16.89.59.56.71 
Responsable : M. Poinot 


Tél : 16.38.43.11.83 
Responsable : M. Millon 


Tél : 16.98.55.31.61 
Responsable : M. Denniel 
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ACTUALITÉS 


modes d'affichage et les codages ASCII 
diffèrent, il n'est pas directement possi- 
ble d'échanger les données entre ces 
ordinateurs sauf via la RS232. 

Le transfert CPC-PCW est facilité par la 
compatibilité relative des supports cas- 
settes et lecteurs 3'’. Par contre, pour 
le transfert vers le PC, la différence de 
format rend le travail plus complexe ; 
c'est pourquoi Sémaphore Logiciels pro- 
pose dès maintenant un service postal 
de transfert de fichiers sur support 
51/4. 

Pour avoir plus de renseignements, ne 
serait-ce qu'au niveau du coût d'un tel 
transfert, contactez Sémaphore Logiciels 
au : 19.41 22.54.11.96. 


ENSEIGNEMENT ET FORMATION 


Le département Education du 
CESTA (Centre d'Etudes des 
\ Systèmes et des Technologies 
Avancées) poursuit et renforce son 
action de diffusion des nouvelles tech- 
nologies pour l'enseignement et la for- 
mation, notamment avec les produits 
suivants : 

— Un annuaire 1987 des logiciels d'en- 
seignement co-édité avec Cedic-Nathan, 
ayant pour objectif d'offrir un outil de tra- 
vail complet aux enseignants et aux for- 
mateurs qui interviennent sur l’appren- 
tissage des savoirs de base. 

— Un service télématique Didactel 
(accès par le 36.15, taper CESTEL), pro- 
posant une version électronique de l'an- 
nuaire des logiciels d'enseignement. 
Enfin, le CESTA propose différents sémi- 
naires de formation : vers une ingénierie 
pédagogique, l'atelier d'ingénierie péda- 
gogique ou le vidéodisque interactif pour 
l'enseignement et la formation. 

Pour plus d'informations : CESTA, 1, 
rue Descartes, Paris, 
tél. 46.34.35.35. 


75005 


Dans notre numéro 20, suite à un petit 
problème de photogravure, l'un des 
gagnants du concours CPC a dû avoir 
quelque peine à se reconnaître ! 

Il s'agit de Pascal DUBUS à Maromme 
qui est arrivé premier dans la catégorie 
utilitaire grâce à son programme : SAD. 
C'est pourquoi nous faison paraître à 
nouveau sa photo... en espérant que le 
principal intéressé ne nous en tiendra pas 
rigueur !... 


12 


NOUVELLES 
ASSOCIATIONS 


Centre de ressources 

en informatique de la 

métropole Nord-Ouest 

Siège social : centre Faidherbe — 35, rue Faid- 
herbe — 59520 Marquette-Lez-Lille. 


Club informatique Merville Le Sart 
Siège social : école primaire du Sart — 115, 
rue d'Aire — 59660 Merville. 


Microtel-Club association médicale 

pour l'informatique individuelle, 
association médicale 

pour l'informatique en Béarn 

Nouveau titre : Association médicale pour 
l'informatique en Béam (AMIBE). 

Siège social : Domus Médica, complexe de la 
République — 64000 Pau. 


Association de formation 

informatique tourangelle 

Nouvelle adresse : |.G.I.A. — rue de Joué — 
37000 Tours. 


Logiciel-Formation 
Siège social : 162, rue de Paris — 92100 Bou- 
logne-Billancourt. 


Club informatique 

de Fleury-la-Vallée 

Siège social : Mairie — 89113 Fleury-la- 
Vallée. 


Club des utilisateurs de matériel 
Datapoint-Matra-Informatique 

Nouvelle adresse : 16, rue Ballu — 75009 Pa- 
ris. 


Club informatique Arneke 
Siège social : Mairie — 59285 Arneke. 


Club informatique 

de Locoal-Mendon 

Siège social : Mairie — Locoal-Mendon — 
56550 Belz. 


Logiciels informatiques pour 

matériels 1.B.M. et compatibles 

Siège social : 12, rue Bayard — 34000 Mont- 
pellier. 


Club informatique Cadours 
Siège social : Mairie — 31480 Cadours 


Arthur Informatique et Télématique 
Nouvelle adresse : chez le docteur Ollat — 
résidence de Faya n° 1 — 33, avenue de l'Eu- 
rope —-07100 Annonay. 


Club informatique Le Capitany 
Nouvelle adresse : Le Capitany — 09000 
Foix. 


Union d'artisans et de commerçants 
pour le développement de 
l'informatique, "Lauragais 
Informatique". 

Siège social : 30, avenue Frédéric-Mistral — 
11400 Castelnaudary. 


Club Minitel 
Siège social : 38, rue Virgile-Marron — 13005 
Marseille. 


Club informatique pour tous de 
Montolivet 

Siège social : 117, rue de l'Aiguillette — école 
mixte de Montolivet — 13012 Marseille. 


Club informatique pour tous de 
Beaumont 

Siège social : 213, rue Chares-Kaddouz — 
13012 Marseille. 


Association internationale Agora 
Télématic Conseil 

Siège social : 12, rue des Cordelles — 13002 
Marseille. 


Atelier de micro-informatique de 
Logonna-Daoulas 

Siège social : Chez M. Boubennec (Jean- 
François) — 10, rue de Kerjean — Logonna- 
Daoulas — 29224 Daoulas. 


Club informatique landivisien 
Siège social : Hôtel de Ville —- 29230 
Landivisiau. 


Gestion et traitement de 
l'informatique 

Siège social : 11, avenue Georges-VI - 
33120 Arcachon. 


Club informatique castelneuvien 
Siège social : Mairie — 45110 Châteauneuf- 
sur-Loire. 


Club Informatique de Mardeuil 
Siège social : Mairie — Mardeuil — 51200 
Epernay. 


Club informatique des traminots 
(C.I.T.) 

Siège social : C.G.F.T.E. — 11, avenue de 
Boufflers — 54000 Nancy. 


1.D.S. Informatique 
Siège social :36, rue de Cassiopée — 77380 
Combs-La-Ville. 


PCW 8256 
PCW 8512 
ext. 256 K pour 8256 
O2® ect PCW 8256 
stylo optique 
CO interf. RS 232/centronic 


ruban imprimante (par 2) ... 
disquette 3” (DF-DD) 


Disquettes vierges 
à l'unité 


O 


Cassettes vierges C20 


Rallonge alimentation + vidéo 


ruban imprimante DMP 2000 
adaptateur peritel tous CPC 


Câble imprimante AMSTRAD 


câble imprimante 


I housse (mon. + clavier + imp.). 


allonge pcw (imp. + al.).. ... 


ne soyez plus collé à l'écran, rallonge 464 . 
ne soyez plus collé à l'écran, rallonge 6128 
housse pour moniteur + clavier 

(préciser couleur ou monoc.} 
ruban imprimante DMPI (par 2) 


130F 
180F 


175F 


strike force harrier 
compta. (alpha soft) . . 
alienor 
am-stram dames . 
] autofor. assembleur . . 
bridge player 3 
trivial pursuit 


exbasic 


NOM 


+ 199F 
750 F 
1095 F 
. 199F 
295 F 


Cmailing (éd. logi. stic). . .450F 
gp Il + mail. (éd. arken.) 990 F 


damocles 
fairlight. 


gp Il (éd. 


multiplan 


LOGICIELS PCW 


Vous permet de connecter votre AMSTRAD à n'im- 
porte quelle imprimante au standard “centronic”. 


DIGITALISEUR ARA 

Ce digitaliseur vous permettra non seulement de 
digitaliser des images vidéo provenant d'une ca- 
méra mais aussi des images provenant direc- 
tement de votre T.V. Un logiciel très complet 
vous permettra d'embellir, retoucher, stocker... 
es images digitalisées. Entièrement français. 
digitaliseur ARA 


MULTISERVI 

Enfin une carte E/S ne nécessitant aucun mon- 
tage, aucun relais. De plus le logiciel fourni 
avec cette carte vous permet de commander 
réveil, alarme, spot tout appareil électrique 
de votre choix sans être un “crack” de la pro- 
grammation. Entièrement français. 

Multiservi 


produits DART 
STYLO OPTIQUE : De loin le meilleur de tous, 
le stylo optique DART à fibre optique vous 
permettra de réaliser de véritables chef d'œu- 
vres. Fourni avec logiciel d'exploitation très 
complet. 
stylo optique 
SCANNER GRAPHIQUE : Ce scanner, très sim- 
ple d'utilisation, vous permettra de digitaliser 
toute image sur support papier, à partir de la 
DMP 2000. Fourni avec un logiciel d'exploita- 
tion très puissant. 
scanner graphique “DART" 


PAL 

6d 

UHF 

haut-parleur integre 
sortie casque 


C] interface TV 


datamat pcw. . .. 
cobol (notice angl). . . 
colossus chess 4.... 


force 4 + mis. detec.. . 


arkenciel) . . 


graphol. + bioryth.. . . 
histoire d' 
la paie cresus 

lang. “c” (not. angl.) . . 


OPhérs es 5: 


LOGICIELS CPC 


22, rue de Montreuil 94300 VINCENNES -— Tél. : (1) 43.28.22.06 


OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13h et de 15 h à 19h, LE SAMEDI de 10h 30à19h 


REVENDEUR OFFICIEL AMSTRAD FRANCE 


&Kironics 


Les complices de vos Amstrad 


PCW: 
extension 256 .. 

extension horloge 

interface joystick : 
interface joystick + musique 
GE 


C164K pour 464-664 NT CiEn 
256K silicon disc pour 6128. 
256 K RAM pour 6128 

256 K silicone disc pour 464-664 

256 K RAM pour 464-664. 

crayon optique 6128 

crayon optique 464 


D joystick compétition 


PRO5000 .... 


PCW graph 
azerty 
polyprogram 
reversi 
rotate 
tassword 8000. . ... 
tomahawk 
dbase || 
compagnon 
centre serveur 


760 F 
199 F 


ADRESSE 


C D 
3D grand Prix...... atom smasher ...... OF fighter pilot ........ 1100F Ü150F 
airwolf ........... 100F C149F  autoformation à l'asse. [1195 F []1295F  floopy (magazine) . 38F 59F 
algebre ....... 175F O245F  avenger ........... TODF ETS: ‘foot 55.522 ue 4 120F D160F 
amstradivarius 145F 0175F  bactron ........... O140F future knight ... . 0110F 0155F 
anals of rome... 130F 0175F  bala. pays de big ben C1180F C1245F  gauntlet ..... 105F D165F 
arsène ............ 590F bala. outre rhin .... D180F [1250F golden hits 120F D170F 
asphañt” :m ses 140F CJ180F batman ........... 5F grand prix 500 ..... 150F O180F 
athlètes ........... 180F O220F  biggles 6 5F graphic city ........ 150F 195F 
tau ceti .......... 7105F 0185F bob winner gr. + way tig. + vi O145F O195F 
templiers ..... .... 0180F0220F bridge ............ hm.s. cobra ... . D280F Ü350F 
tennis 3D.......... 120F C1160F budget familial ..... 140F 0220F hit pack .......... 100F C0155F 
tension ........... 50 FE TAUF* CAD sisi ses 320F CJ410F  ikari warrior ....... 100F0155F 
textomat .......... 450F  calcumat ........ O450F  infiltrator ..... O115F 0145F 
the eidolon ........ 120F OD160F carte de france ..... 150F C185F  jail break ......... O105F0155F 
they sold million n° 1 110F 70F  cauldron 2 ........ 115F O180F kentel ............ 390F 
they sold million n° 2 D110F D170F ciné clap ......... 180F kid kit ........... D299F D299F 
they sold million n° 3 C110F CD170F  cobol (notice anglaise) 550F l'aigle d'or ....... D160F 199F 
tony truand ........ 140F 0199F  colbert............ 250F l'ère du verseau .... 0250F 
top secret ......... 230F  colossus chess 4 .... [110F D160F Ja solution ........ CO 950 F 
trail blazer ........ 110F C160F commando ......... CD100FU145F Je 5° axe ......... 120F [160F 
trivial pursuit ...... 185F O250F dams. ........... O295f 395F diamant île maudite .C180F 220F 
Êt- raCer 5 2eme us 110F [160F  datamat PCW ...... 590F le pacte .......... 220F 
winter games ...... 110F 0140F  dbase Il .......... 7190F le secret du tombeau C160F [1199F 
vie ar kung fu I... D100F C1155F deep strike ........ 100F[)145F les 4 saisons ...... 120F C220F 
zombi ........... O175F  echosoft .......... 365F [1395F carvernes de thenebe C120 F D180F 
discology . . . . .... _ 345F équation inéquation .. [1175F [J245F les passagers du vent [)290 F [1290 F 
mines du roi aquantus . []125F0185F fer et flammes (2 d. 295F les pyramides d'atlant. 150 F [180 F 


C] peeks pokes du cpc .. 
rsx et rout, ass. Sur Cpc 
cp/m + sur cpc et pcw 
CO] graphis. et sons du cpc.. 
la bible des cpc. . 


170F 


Her 


CRC6128 


(clavier AZERTY) 


p | SUPER-PROMOTION 


“ne 
Très 


CPC 6128 coul + impr. 
DMP 2000 


CPC 6128 monochrome... 
CPC 6128 couleur 

CPC 464 monochrome... 
CPC 464 couleur 
imprimante DMP 2000 
interface RS 232 (Amstrad) 
souris 

Ter lecteur de disquettes 
2ème lecteur de disquettes 
mangétophone (avec câble) 
câble magnéto 


TeGyhi MysPut 


lui manque que la parole”, synthé. VOC1 la lui donne ! 
performant ce synthétiseur vocal va vous permettre 


de rendre votre ordinateur plus bavard qu'un politicien en 
campagne ! 

[1 synthétiseur vocal 

O7 logiciels vocaux sur disquette 


549 F 
.…..195F 


C D L (c D 
larigraph ........ oiéomnt. Mecs eds 
m'enfin... SOMSOFOIgSF MT sHrisrensess 175F D1240F 
ma. base .. O165F TONEDx SANT nm 
mgt O140F 180F SApIeNsi ns rx ruté 140F O180F 
mgt. + bactron .... CJ195f CJ245F SCOobydoo -........ Een 
manhattän.95 140F D180F silent service ....... 105F 015 
maracaibo 135F0175F space moving ...... 295 F 0395 F 
masque rage ui 195F spitfire 40 ........ O105F 0145F 
ae. “disq. n° 1. 99F street hawk ....... 105F 01145F 
mastertro. disq. n° 2 . O 99F ue N int LADITE ETS Q BU 
mastertro. disq. n° 3 . 99 F At AT ES 
miami vice ........ J1U00F C150F 
micro scrable . . 0199F O245F LOGICIELS PC 
mille bornes .. .- D145F 0195F infiltrator ........... 295F 
monopoly .......... 175F 0225F évolution sunset. ..... 1175F 
nues fe ee £ flight simulator . . ..... 890F 

IC... — dambuster .......... 225F 
ÉL PAS | 2 Ë =) de É crusade in europe ..... 245F 

. cyrus chess 2 ....... 210F 
A np en Ë un È boulder dash ........ 205F 
prodigy ........... O120F O160F À Obruce lee... 


. 89F 
200 F 
100 F 
129F 
199 F 
120F 


199F 
. 149F 


VENTE AUX COLLECTIVITÉS : 
numéro réservé : 48.86.92.84 


LIVRES 


[] routines du cpc. 
O liv. lect. disqg. cpc. . .. 
cp/m + sur cpc et pcw 100 F 
graphis. et sons du cpc 129 F 
la bible des cpc . ... 
routines du cpc 


je débute basic amstrad 91F 
grd livre dupcw amstrad 179 F 
livre du basic 1512 .. 179F 
livre du gem pc 1512 .199F 


.. 149 F 


ORDINATEUR : 


102 prog. sur amstrad 
amstrad à l'école 
amstrad en famille. . . 


= 
Ü 


C] amstrad en musique . . 


© clefs pour amstrad t1 


Clefs pour amstrad t2. . 


PC 1512 
TÉL. 


Mode de paiement : 


chèque / 


mandat / 


. 120F 


©] 6128 coul. 


liv. lect. disq. cpc . 149F 
peeks pokes du cpc .. 99F 
rsx et rout. ass. sur cpc 200 F 
bien débuter pcw. . .. 129F 
bien débuter pc 1512 ..149F 


COMMENT COMMANDER : Cocher lefs) article(s) désiré(s) ou faites-en une liste sur une feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F. 40 F de 500 à 1000 F. 60 F pour achat supérieur à 1000 F 


[] 6128 mono. 
CODE POSTAL 


[1 464 coul. 


livre logo pcw et cpc 
multiplan sur amstrad .. 195 F 
prog. math. sur cpc .. 150 F 
programmation sur PCW 149 F 
trucs et astuces pc 1512 179 F 
guide réf. tech. 1512 ..249F 


[1 464 mono. 
VILLE 


[1 82566 |] 8512 


Tous nos prix sont indicatifs 


contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 2] 


L'EXPLOITATION 
DES TABLEAUX 


DIM 


Michel ARCHAMBAULT 


Un tableau DIM est bien pratique pour 
tenir en mémoire toutes les données d'un 
fichier et ce afin d'y faire des recherches, 
des tris, des sélections de ‘fiches’. 
Quand sa taille est petite, c'est formida- 
ble, mais dès qu'il dépasse déjà quelques 
kilo-octets, alors on s'aperçoit que le tri 
alphabétique va prendre plus de vingt 
minutes et que la sélection de fiches 
devient très encombrante en mémoire... 
C'est vrai avec les procédés classiques, 
mais, en utilisant des méthodes indirec- 
tes, le même tri ne demandera plus que 
quinze secondes |! C'est la ‘‘ruse’’ de la 
‘’table d'index'’ que nous allons mettre 
en pratique ; mais avant tout il serait bon 
de rappele: brièvement les règles et les 
précautions pour créer un tableau DIM. 


CONSTITUTION D'UN TABLEAU DIM 


IL y a trois races non miscibles de DIM, 
ceux qui ne contiennent que des chaînes 
ou que des nombres réels ou que des 
nombres entiers. Ce dernier est le plus 
économique en réservation mémoire. 
Pour chacun de ces types, on peut avoir 
des tableaux à une, deux ‘‘dimensions"” 
(rarement plus). Deux dimensions veut 
dire qu'il y a des lignes et des colonnes, 
comme un tableau sur une feuille. Une 
dimension, c'est la liste toute bête à une 
seule colonne. Trois dimensions, c'est 
comparable à plusieurs tableaux à deux 
dimensions associés. Je m'explique : 
deux dimensions, c'est une feuille divi- 
sée en lignes en colonnes ; préparons 
une liasse de quatre feuilles ainsi prépa- 
rées, on a nos trois dimensions : ligne, 
colonne et feuillet. On peut même envi- 
sager une quatrième dimension, le 
numéro de la liasse (ultra. rare). 

Dans le BASIC AMSTRAD, la numérota- 
tion des lignes et colonnes commence à 
zéro et non à un. Ainsi DIM NB(20,2) se 
réserve 21 lignes et 3 colonnes, soit 63 
cases-valeurs/ou ‘‘cellules'”. Et comme 
il s'agit là de nombres ‘’réels'”, à cinq 
octets chacun, il se réserve donc 
63x5=315 octets, même si ce tableau 
reste vide. Deux octets par cases pour 
des nombres ‘'entiers’” (non décimaux) 
et trois octets pour des chaînes. Donc, 
seul un DIM de chaînes va augmenter de 
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volume lorsque l’on va le garnir (avec des 
chaînes de plus de trois caractères). 
Vous ne pouvez pas modifier ou répéter 
la définition d'un DIM, sinon plantage. 
On les déclare donc en tout début de pro- 
gramme, afin qu'un GOTO ne fasse pas 
repasser par cette ligne... En revanche, 
vous pouvez le supprimer, exemple 
ERASE NB fera oublier sa structure et 
son contenu (gain de place quand on n'a 
plus besoin d'un tableau de valeurs). 
Comment faire pour mettre en tableau à 
la fois des chaînes et des nombres ? Cas 
très fréquent. Deux méthodes : 

— Transformer les nombres en chaînes 
par STR$. 

— Définir un second tableau DIM, 
numérique, où les valeurs correspon- 
dront ligne à ligne avec le tableau chaïî- 
nes. C’est un peu plus lourd dans le lis- 
ting, mais cela permet parfois de faire 
d'énormes économies d'encombrement 
mémoire. 

Gardons la première solution pour nos 
exemples suivants, donc un unique 
tableau chaînes. Deux petites astuces : 
en ligne zéro, entrez (par des DATA) les 
légendes de vos colonnes. Pour celles qui 
correspondent à des STR$, faites suivre 
le nom par le signe dièse : PRIX#, AN#, 
STOCK # , etc. Ce petit repère sera utile 
par la suite. 

Vous êtes obligé de déclarer un DIM s'il 
y a plus de onze lignes ou colonnes. Sans 
DIM, vous pouvez écrire A(2,3)= 
mais sachez qu'à votre insu l'AMSTRAD 
s'est aussitôt déclaré DIM A(10,10), 
d'où peut-être un gaspillage mémoire. 


LA TABLE DES INDEX 


Supposons que notre grand tableau soit 


LISTINGT 


3060 1F ne THEN Nm 


DIM F$(200,8). 
DIM S%(200), ou DIM S(200), S ayant 
été déclaré comme ‘‘'entier'” par DEFINT 
I-N,S. Ce DIM n'occupe donc que 


En plus, déclarons 


201 x2=402 octets. Il ne contiendra 
comme valeurs que des NUMEROS DE 
LIGNES de F$(200,8), donc ici de O à 
200, d'où son nom de tableau ou table 
des index. C'est une formidable 
machine-outil, nous allons le prouver et 
ce dans absolument tous les domaines. 
On commence la démonstration. 


SELECTION DE FICHES 


Prenons l'exemple ‘’bateau’' d'un fichier 
noms-adresses. Dans la rubrique ville 
(colonne 6), on veut sélectionner DIJON. 
Il y a NF fiches au départ (NF< =200) 
2020 NS = 0: Nombre de sélectionnées 
2030 FOR N=1 TO NF 

2040 IF F$(N,6)=''DIJON'’ 
NS =NS + 1:S(NS)=N 

2050 NEXT 


THEN 


On a répertorié dans la table des INDEX 
les numéros des fiches sélectionnées et 
on connaît leur nombre total, c'est NS. 
A partir de là, on peut faire n'importe 
quoi de cette sélection : l'enregistrer, 
l'afficher, la trier ou par exemple n'im- 
primer que les noms (colonne 1) : 
3020 FOR J=1 TO NS 

3030 PRINT #8, F$(S{(J),1):NEXT 


Pour sauvegarder cette sélection : 
4020 OPENOUT ‘'DIJON.SEL"" 

4030 PRINT # 9,NS:' facultatif mais utile 
4040 FOR J=1 TO NS:FORK=0TO 8 
4050 WRITE # 9, F$(S(J),K):NEXT:NEXT 
4060 CLOSEOUT 


Sans cette table d’index, nous aurions 
dû, pour faire ces opérations, lancer 
DEUX FOIS la routine de recherche dans 
le DIM F$ ! 


LE TRI SUPER RAPIDE 


La technique est la suivante : 

1- On remplit DIM S avec tous les numé- 
ros de fiches, de 1 à NF. 

FOR 1=1 TO NF:S{(I) =I:NEXT 

2- On lance une routine de tri sur l'une 
des colonnes de DIM F$, mais super 
important on n'y déplace aucune 
fiche !! Ces comparaisons feront dépla- 
cer uniquement leurs numéros de fiches 
dans DIM S (des entiers de deux 
octets...). 


Donc, en fin de tri, le tableau F$ est 


- LISTING 2 
3000 


d  herche , Selection 


3050 PEN 2 
F4 


 ,24+RAZ: PEN 3 : PRINT 
_ 3500:G0T0 317@ 
 # pour <> 1)? 


_):G0T0 307a 


INC 0" 
Hi SUN) 


3168 NEXT:NS= 


PME ICHES. " 


cs: 
3200 FSEL=1 


_ 3400 FSEL=@:RETURN@ 


mots r SU, R):-NEXTEU 


| 3060 IF K=NRU+2 THEN 3490@ 

_ 3070 LOCATE 1,24:FRINT SFC(39):LOCATE 12 

ê LL Æ'": « NEG-=0 
3080 IF RIGHT#F(FF(B,R), 


5090 FEN 2:LOCATE 2,24:PRINT"ELEMENT 7? ( 
">2PEN 1:INPUT"", 
_ PER$(EL#):IF LEFT#(EL#,1)=""" 
_ 1:EL#=RIGHT#(EL#, LEN(EL#)-1) 

3100 IF LEN(EL#)>LR(R) THEN PRINT CHR#(7 


… 3110 FEN 1:CLS:LOCATE 15,18: PRINT "PATIE 


- 3120 IF FSEL=0 OR FAJ=i THEN GOTO 3150 
L 3130 F=0:FOR N=i TO NS:1F (INSTR(UPPERS# ( 
_ FH(SUN) ,R)) ,EL#$)=G)=NEG THEN F=F+1:S{(F)= 


_ 3149 NEXT:NS=F:GOTO 3178 
_ S150 FOR N=1 TO NF:IF CINSTR(UPPERS(F#(N 
SRI); D THEN F=F+1: S{iF)=N 


317@ LOCATE si 13:PRINT "J'AI TROUVE'":NS: 


3180 LOCATE 4,15:PRINT 
imer ,Quitter ?7":TEX#="AOVIQ":GOSUR 50000 
_ 3190 FAJ=0:ON EH GOTO 3700,3770,:500,3210 


: :F=0@: GOTO 5020 
5: 3218 FSEL=1:GOSUEB 6000: CLS:GOTO 
_ 3220 FSEL=1:FAJ=1:F=NS:GOTO 5028 


: RECHERCHE ET SELECTION DE FICHES 
_ 3010 F-0:FAJ=@:FSEL=0: 

5020 PAPER B:PEN 3:CLS 

_ 3030 LOCATE 2,1:PRINT "RUBRIQUE pour Rec 
: : "2: PEN 1 

3040 FOR R=Q TO NRU:LOCATE 15,2+R*x2:PRIN 
D LEFTS(FS(D,R) ,1)3:" 

CATE 15, 22: PRINT "QG — QUITTER" 
2: TEX#=IRS+"O":GOSUER 50000: R=K- 


12="H#" THEN GOSUE 


EL#:EL#=Ur 
THEN NEG=- 


"AND,O0R, Voir, Impr 


3178 


SES 


inchangé, seul le contenu de la table des 
index a été bouleversé. Quel avantage ? 
Tout simplement que la durée du tri est 
environ divisée par CINQUANTE ! et par- 
fois plus... Pourquoi ? Deux raisons à 
cela : 

a- Si on permutait des chaînes de F$, il 
faudrait chaque fois déplacer un par un 
le contenu de chaque colonne, par une 
boucle FOR NEXT supplémentaire. Donc, 
déjà, un gain facteur neuf. 

b- Le tri ne va déplacer que des nombres 
entiers, donc de deux octets chacun, 
plus rapides à manipuler, adresser que 
des rubriques de vingt caractères. 
Pour un tel tableau F$, la durée du tri est 


de l'ordre à 15 à 20 secondes ! Si vous 
ne me croyez pas, essayez... 

Le fait que le tableau F$ ne bouge pas 
de son état ‘‘brut’’ est aussi un avantage 
car il reflète un caractère chronologique, 
les fiches les plus récentes étant les der- 
nières (très utile). 

Comment utiliser cette table d'index 
triés ? Mais de la même manière que 
pour une sélection, en disant simplement 
au préalable NS = NF. 

Si vous voulez vraiment le tableau F$ 
trié, enregistrez chaque fiche dans l'or- 
dre de la table des index (idem nos lignes 
4020 à 4060). Puis, rechargez ce fichier 
dans DIM F$ et le tour est joué ! 


Notez au passage que cette même rou- 
tine du tri, appliquée ici sur toutes les 
fiches, peut s'appliquer sans rien modi- 
fier à une liste d’index de fiches sélec- 
tionnées.…. Pouvoir imprimer et sauvegar- 
der une sélection, c'est très bien, mais 
si en plus elle est triée c'est le super luxe, 
gratuit. 

Maintenant que nous avons exposé la 
stratégie générale avec la table d'index, 
nous allons revenir sur des détails prati- 
ques pour les sélections et le tri. 


LE CHOIX DE LA RUBRIQUE A TRAITER 


C'est un sous-programme qui est aussi 
bien appelé pour une sélection, une 
recherche ou un tri, alors, autant faire du 
solide et pratique. Au début de pro- 
gramme, nous avons déclaré la variable 
NRU =nombre de rubriques-colonnes. 
dans notre exemple NRU=8 (de O à 
8 =9 rubriques). Par des DATA, les noms 
de rubriques ont été entrés en ligne zéro 
du DIM F$. Très important, il faut que 
ces noms aient une lettre initiale diffé- 
rente, nous allons voir pourquoi. 

Il nous faut une page d'écran qui pré- 
sente ces rubriques, une ligne sur deux 
pour faire plus propre, mais elles seront 
précédées par leur lettre initiale, carac- 
tère qu'il suffira de presser. En queue de 
liste, l'option Q-Quitter qui annulera l'op- 
tion en cours (sélection, tri...). En début 
de programme, on avait défini une chaîne 
IR$ rassemblant ces initiales : 
IR$="":FOR 1=0 TO NRU:IR$S =IRS 
+LEFTS$(F$(0,1),1):NEXT 

Tout cela tient en ces trois lignes 


On ne présente plus le sempiternel sous- 
programme MENU du GOSUB 50000 qui 
renvoie la place K de la réponse dans 
TEXS$. On connaît alors le numéro R de 
la rubrique à traiter. 
SiRIGHT$S(FS$(0,R),1)=""#"", on sait qu'il 
s’agit de nombres et cela nous conduira 
à des sous-programmes de traitements 
complètement différents et indépendants 
de ceux réservés aux chaînes. 


RECHERCHE ET COMPARAISON 
DE CHAINES 


Dans notre exemple précédent, pour 
rechercher le mot ‘’DIJON””’, nous avions 
utilisé le signe égal. 

En fait, il ne faut jamais faire cela ! Vous 
risqueriez de louper des fiches : il faut 
demander si la chaîne RENFERME le mot 
DIJON et ce pour la fonction INSTR. 
LINE INPUT ‘’Elément recherché:'"",EL$ 
ELS$ = UPPERS(ELS$) 

IF INSTR (F$(N,R)EL$)>0O THEN... 
Deux avantages : 

INSTR est plus rapide que la comparai- 
son ‘‘égal'” (très stricte). 

On trouvera une fiche comportant 
‘‘DIJON CEDEX 9°’, non validée par le 
signe égal... 

Si dans la rubrique prénom vous cher- 
chez JEAN, vous allez aussi sortir les 
JEAN-PAUL, JEAN-PIERRE... sauf si 


15 


vous avez pris la précaution de deman- 
der JEAN + un espace, d'où l'intérêt du 
LINE INPUT sur INPUT. 

Un autre type de rechèrche, souvent 
super pratique, est la ‘‘recherche par 
exclusion’, c'est-à-dire les fiches ne 
CONTENANT PAS l'élément demandé, 
du genre 

IF INSTR(F$(N,R),EL$) =0 THEN... 
Hélas, il n’est pas possible de program- 
mer le remplacement du signe > par le 
signe = ; il faut tourner le problème par 
la fonction BASIC NOT. D'autre part, il 
faut signaler que nous ne voulons pas 
rencontrer cet EL$, alors nous le faisons 
précéder, dans notre LINE INPUT, par le 
signe ‘’flèche en haut’” (entre les touches 
‘-""et CLR). Pourquoi ce signe ? Parce 
qu'il est le symbole de NOT dans d’'au- 
tres langages que le BASIC. 

Le listing du sous-programme qui suit est 
extrait d'un logiciel exploité par l’auteur. 
Ilillustre ces différentes ‘’manœuvres'’ ; 
il vous sera alors très facile de le modi- 
fier pour l'adapter à votre problème pro- 
pre ; c'est une ‘‘base’’. En ligne 3070 un 
petit gadget ‘‘rassurant'” ; en face de la 
rubrique choisie, un astérisque signale 
celle qui a été tapée, une confirmation. 
Autre possibilité super utile, on peut affi- 
ner la sélection par d’autres pouvant con- 
cerner d’autres rubriques, du genre 
VILLE contenant DIJON AND PRENOM 
contenant JEAN, ce qui va restreindre le 
nombre de fiches sélectionnées. Egale- 
ment l'option OR qui, elle, va augmen- 
ter la sélection issue de la première 
‘’passe’”. Le nombre de passes AND ou 
OR après la première sélection n’est pas 
limité. 

Nota : toutes les variables commençant 
par F sont des FLAGS (témoins, 
mouchards). 


Quelques éclaircissements (listing 2) : 
DIM LR(INRU) contient les longueurs 
maxi de chaque rubrique (entrées au 
départ par des DATA). 

FSEL = flag sélection ; FAJ=flag Ajout, 
consécutif à un passage en OR. 
Lignes 3130, 3150 : une condition IF 
mise entre parenthèses devient une 
‘’variable logique’ ; égale à zéro si 
fausse, égale à - 1 si vraie. 


SELECTIONS 
SUR RUBRIQUES NUMERIQUES 


Nous aurons besoin ici d'introduire les 
signes <, > où =, suivi de la valeur 
cible. Un exemple, rubrique CODPOS # 
(code postal), nous voulons sortir les 
fiches du Rhône : sélection en deux pas- 
ses > 68999, AND, < 70000, d'où tous 
les codes postaux entre 69000 et 
69999. OK ? Voici le sous-programme 
appelé par la ligne 3080 du module pré- 
cédent {listing 3). 


LES SUPPRESSIONS DE FICHES 


Certains logiciels dits professionnels (par 
leur prix...) se contentent de vider le con- 
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LISTING 3 


3500 ‘ RECHERCHE SUR RUBRIQUE NUMERIQUE 
3510 PEN 2:LOCATE 2,24:PRINT "Signe >,4, 
= et Valeur (ou @) “;:FEN 1: INPUT'"",R#:0 
PH=LEFTS(RS, 1) : OP=INSTR("><=0q" ,0P#):1F 
OP-=Q0 THEN 3510 

352Q 1F OP>3 THEN 3698 

3520 VE=RIGHTS (RE, LEN(R#)—-1): V=VAL(V#):1 
F_V=@ AND V#<>"Q" THEN 3510 

3540 CLS:LOCATE 15,1@:PRINT "PATIENCE .. 
.":IF FAJ=1 OR FSEL=QG THEN 2620 

3550 F=0:0N OP GOTO 23569,:580,5:600 

3560 FOR N=1 TO NS:1F VAL(F#(S UN) ,R)) >V 
THEN F=F+1:S(F)=S (N) 

3570 NEXT:NS=F:GOTO 3690 

3580 FOR N=1 TO NS:1F VAL(F#(S UN) ,R))<€V 
THEN F=F+1:S(F)=S{N) 


3590 NEXT:NS=F:G0OTO 5694 


5600 FOR N=1 TO NS:1F VAL{F#(S(N) ,R))=V 
THEN F=F+1:S(F)=S (N) 

3618 NEXT:NS=F:GOTO 3690 

5620 ON OF GOTO 5650,:650,:6708 

36530 FOR N=1i TO NF:IF VAL(FÆ(N,R))2>V THE 
N F=F+1:S(F)=N 

3648 NEXT:NS=F:G0OTO =:690 

3650 FOR N=1i TO NF:1F VAL(F#(N,R))EV THE 
N F=F+1:S(F)=N 

5660 NEXT:NS=F: GOTO =690 

2678 FOR N=1 TO NF:1IF VAL{FH(N,R))=V THE 


N F=F+1:S(F)=N 


3680 NEXT:NS=F 
3698 RETURN@ 


LISTING 4 


4588 E=@: ‘Nombre d'effacees 

4518 CLS: LOCATE 4,12: INPUT'"EFFACER Fiche 
numero (où Q) ",N# 

4528 IF UPFPERS(N#)="Q" THEN 46020 

4550 N=VAL(N#):1F N=G OR N>NF THEN FRINT 
CHR# (7): GOTO 4510 

4549 E=E+1:F#(N,@)="+":GO0TO 4510 

4608 ‘’ELIMINATION 

4818 LOCATE 15,15:FRINT "PATIENCE ..." 
4620 OPENOUT "XXX":PRINT #9,NF-E 

4630 FOR N=1i TO NF:1F F#(N,@)="#" THEN 4 
868 

4848 FOR R=0 TO NRU 

4650 WRITEH9,F#(N,R):NEXT 

466@ NEXT:CLOSEOUT 

4678 OPENIN "XXX'":INPUT #9,NF 

46880 FOR N=1 TO NF:FOR R=Q TO NRU: INPUT# 

9,FE(N,R):NEXT:NEXT:CLOSEIN 

46970 XXXF="XXX.#"::ERA,GXXXF 

4900 RETURN@ 


tenu des rubriques (fiche vide) et le nom- 
bre de fiches reste bien sûr le même. Pra- 
tique exécrable. Effacer des fiches va 
changer la numérotation en aval, normal, 
alors voici notre méthode pas du tout 
mathématique, mais rapide et efficace : 
Premier temps, la rubrique zéro de cha- 
que fiche à effacer devient ‘’*’’, tout 
simplement, c'est un repère. 
Deuxième temps, on enregistre le 
tableau F$ en sautant les fiches où 
F$(N,0)=""*". 

Troisième temps, on recharge la RAM 
avec ce fichier écourté qui remplace 
donc l'ancien. 

Dernier temps, cet enregistrement sur 
disque est effacé (listing 4). 


Si vous n'avez qu'un lecteur de casset- 
tes, supprimez la ligne 4690. 


LE TRI SUPER LUXE 


Nous avons déjà dit qu'il sera ultra 
rapide, mais il va être multi-critères, par 
exemple par code postal, puis par nom, 
puis par prénom. Là encore, le nombre 
de critères successifs n'est pas limité ! 
Afin d'augmenter la vitesse globale, nous 
faisons appel à deux routines de tris. La 
première, c'est la méthode SHELL- 
METZNER, ultra-rapide mais ayant le 
gros défaut de bouleverser l'ordre initial 
d'un ensemble de fiches ‘’égales’’, donc 
inapte à un tri complémentaire. 

Une fois le ‘‘gros boulot’ effectué par 
le Shell-Metzner, tri complémentaire sur 
les fiches égales (exemple même code 
postal) par ‘‘tri à bulle’’, plus lent mais 
ne perturbant pas l'ordre initial. Rappe- 
lons qu'il ne va opérer que sur des petits 
groupes de fiches égales rencontrés ici 
et là ; c’est donc bref. L'éventuel tri sui- 
vant, toujours à bulle, ne traitera que les 
groupes de fiches égales laissés par le tri 
précédent {listing 5). 


Si vous avez des rubriques numériques 
(flag FRUN =1), vous devrez recopier 
certains modules en remplaçant les 
F$(...) par VAL(F$(..)), à savoir : 
5300 ‘ Tri 1/nombres (copie de 5200 à 
5290) 

5700 ‘ Tri 2/nombres (copie de 5500 à 
5560) 

5800 ‘ Tri égalités/nombres (copie de 
5600 à 5650) 

Vous saurez faire. 

Rappelons que ce sous-programme tri 
peut aussi traiter une sélection de fiches. 


CONCLUSION 


Avec un tableau DIM de 196 lignes sur 
10 colonnes, nous avons chronométré 
1,8 seconde pour une recherche de 
fiches et 21 secondes pour un tri alpha- 
bétique contre plus de quarante minutes 
avec un tri classique. Et pourtant vous 
avez vu que c'est du 100 % BASIC, mais 
du BASIC que l'on a pris dans le ‘‘bon 
sens du velours”. Il n'est pas impossi- 
ble que l'on puisse améliorer encore ces 
performances par de nouvelles petites 
astuces ici et là. 


LE LECTEUR 
DE DISQUETTES AMSD + 


Pierre BEAUFILS 


La société Tran propose des périphéri- 
ques pour AMSTRAD de plus en plus 
puissants. La dernière nouveauté est un 
lecteur de disquettes 5°’ 1/4, de conte- 
nance 1 méga-octet. Pourquoi 5°’ 1/4 et 
pas 3’ 1/2, dont on dit qu'il s’agit du 
standard de l'avenir ? Malgré toutes les 
critiques qui lui sont faites, le 5°" 1/4 a 
de beaux jours devant lui ; les disquet- 
tes sont peu chères, faciles à trouver et 
finalement très répandues. Ce nouveau 
lecteur :a un design agréable : très plat 
(demi-hauteur), supporté par 4 pieds en 
caoutchouc, il se place agréablement à 
droite de l'unité centrale, dont il a la 
même hauteur. Les branchements à 
effectuer sont relativement simples : un 
câble en nappe muni de deux connec- 
teurs relie les appareils. Aucun risque de 
se tromper, il y a des détrompeurs qui 
empêchent d'insérer les connecteurs à 
l'envers dans leur logement. Côté ali- 
mentation, une prise à 4 broches vers le 
lecteur et 2 câbles qui viennent en 
‘parallèle’, comme disent les électroni- 
ciens, sur les fils d'alimentation + 5V et 
+ 12V de l'unité centrale. A la mise sous 
tension, il ne se passe rien de spécial, si 
ce n'est un léger bruit dans l'AMD +, dû 
au fait que le carton de protection des 
têtes était resté en place. 

En fait, ce bruit se reproduira assez sou- 
vent ; il est sans doute dû au fait que 
- capacité oblige - les têtes de lecture 
sont très proches du disque ; cela ne 
devrait avoir cependant aucune inci- 
dence sur la fiabilité du matériel. 
Passons aux choses sérieuses ; la face 
avant du lecteur comporte un inverseur 
permettant de choisir la face du disque 
lue (1 ou 2) ; une LED devient alors jaune 
ou rouge suivant le cas. La disquette 5°" 
1/4 s'introduit aisément dans son loge- 
ment, il faut ensuite basculer le verrou. 
Nous déplorons fortement que, contrai- 
rement à l'usage, la disquette ne soit pas 
en partie éjectée lors de l'ouverture de 
ce verrou. || faut alors avoir des doigts 
de fée pour l'extraire… 

Le lecteur est livré avec une disquette 
comportant divers utilitaires. Pour pou- 
voir y accéder, il faut taper la commande 
AMSDOS classique : IB, et avoir choisi 
la face à lire, soit 1 si l'étiquette est sur 
le dessus. Sous AMSDOS, première 
chose à faire : formater une disquette. 
La notice est assez claire à ce sujet : 
RUN ‘’FORM720"" suffit. Un grand nom- 
bre d'options est offert : choix du lecteur 
(A ou B), du format (360 ou 720 : 40 
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pistes correspondent à 180K sur une 
face, 80 à 360K sur une face), du type 
de formatage (VENDOR, SYSTEM ou 
DATA, cette dernière possibilité étant la 
plus courante). Remarquons que cet uti- 
litaire pourrait (et peut.) formater en 80 
pistes une disquette 3'’ placée dans le 
lecteur À, mais le constructeur a l'hon- 
nêteté de prévenir que cela pourrait être 
dommageable pour ledit lecteur (!). À ce 
point, tout le monde se pose la question : 
où est le méga-octet promis ? Il y est 
bien, si l’on tient compte du fait que cha- 
que face peut contenir 500K non forma- 
tés, soit 360K formatés.. Déplaisante 
habitude des fabricants, mais il faut s'y 
faire. 

L'usage d'une disquette 720K (donc, 
nous répétons, 360K directement acces- 
sibles sur une face) est simple et ne pose 
pas de problèmes. Cependant, il faut 
signaler au micro-ordinateur cet état de 
fait. Pour cela, il faut lancer l'utilitaire 
AMS720, qui donne accès à 3 instruc- 
tions BASIC supplémentaires, dont 
IDAT720,1 (passage en 360K) et 
IFRM360,1 (retour au 180K classique). 
Cette manipulation est un peu gênante, 
et il faut se garder de sauver ‘’à l'aveu- 
glette'” un programme sur une disquette 
5" 1/4*. En effet, si cela ne crée pas de 
catastrophes, cela conduit à de petits 
problèmes gênants, tels l'impossibilité de 
lire le catalogue ou de charger un pro- 
gramme. Le retour au bon format remet 
heureusement les choses en ordre. Petite 
critique au passage : est-il vraiment si 
difficile, de lier les 2 faces, de manière 
à obtenir 720K effectivement en ligne ? 


Remarque amusante, quand on sait que 
l'industriel en question fabrique des ordi- 
nateurs compatibles IBM-PC pour les- 
quels il a apparemment résolu ce 
problème. 

Signalons enfin que d’autres utilitaires 
(A720.COM par exemple) permettent la 
même initialisation du système sous 
CPM. [A720.COM commute la lecture 
du lecteur À en 360K/face ; un nom tel 
que CPMA720 aurait été préférable]. 
Dernier utilitaire disponible : la duplica- 
tion de disquettes [A—B ou B— A, mais 
pas A— A]. Celle-ci s'effectue piste par 
piste et non fichier par fichier. Cela pré- 
sente un inconvénient, dans la mesure 
où 2 faces de 3'’ tiennent sur une face 
5’ 1/4. On peut donc dans un premier 
temps, copier une disquette (une face) 
3'' sur une disquette 5’’ 1/4, mais pour 
la seconde, il aut le faire fichier par 
fichier. Dernier problème : peut-on sau- 
vegarder ainsi un programme protégé ? 
Cela n’est pas évident... 

En conclusion, nous avons affaire à un 
appareil fiable et pratique, de coût rela- 
tivement modeste. Nous regretterons 
l'absence de sélection automatique de 
format et la non -mise en ligne des 2 
faces de la disquette. Ceci est d’ailleurs 
un inconvénient mineur, dans la mesure 
où le catalogue ne peut contenir que 64 
entrées et que cette limite est aisément 
atteinte pour les supports de plus de 
360K. 


* Ja notice propose de créer un fichier 
‘’bidon'’, dont le nom dans le catalogue rap- 
pelle le type de formatage. 


Fef : 21.43 67.aa 
A RS ren _- 
ce deux CE Le mom .clx OC 
… de 0 + broc be 
ss Lt Ce Eau” aa C cEufe 
. et ee ne ni des 
AT Aue 


dass 


Te 


| SIS. 


vo ulez-vous, 
ue 


Pa 
| ment III 


…E7 vous 3 
| SAGEST-INF 


ORMATIQUE-s 
ds nnenené Fra 


nçais 
u Chabl 
74188 AR polais 


EMA 


nou 


. \ \L92 gi. Prec pa . 
ï \ y WG en ? due cle CURE 
| <7> es NS : STRASBOURG 
ep? gp p” teŸ. Sr x 6802 
\ 7 
e (CL a À 
$ o* | kX T4 Sacesr - INFORMATIQUE 
ns : lea F 
ms AY ue Lance Va 
os "UrVET R#NEMASSE 
So. ETAGLISSeNENT hTur vu . ÿ. SO 42 SS So 
7 “Aloe. hooëx € 
SAINT- LO 
Fe: 335471 34 Tr | 
RS 
GE nouer LT Butte Tafamah} 
(#] ie Enfanah et Loa efs E Li d 407 Que Nunius eV Any 
ns Nino Lu ma qui a U 
P Bon omme 
Aa ONER 


e om 
LE TANPoW | REUWIOoN 
Éel:: 262. 14.22 33. !s 


tel :5483 78 3x 


Re 
TON Woù: 
TOU PÉENCN: 
TOW AdResse : 


ss NC CE 
CODE PESTAL Liu 


TOU LCÉBIVATUR : 


Georges LAVERGNE 


‘*.. Et cinquante qui nous font cent’. 
Combien de fois avons-nous entendu 
cette phrase qui nous semble parler 
d'elle-même. Pourtant, les enfants ont 
parfois du mal à saisir la ‘valeur de l'ar- 
gent'’ (disait ma grand-mère). 
Monnaie se propose donc d'enseigner, 
au travers d'exercices simples, des 
notions telles que : rendre la monnaie et 
faire une somme. 

Les possesseurs de 464 devront rempla- 
cer les instructions ‘‘FILL’” par la RSX de 
remplissage de leur choix. 


SOUS QUELLE 


ETOILE 
SUIS-JE NE 7? 


290 F. 


La disquette double-face 


MIROIR 
ASTRAL 


Avec une date, une heure et un lieu de naissance, 

votre CPC établira un portrait psychologique 

approfondi d'environ 15 pages sur imprimante ! 

Un logiciel qui vous étonnera par sa profondeur ! 
(version familiale d'un logiciel utilisé par les professionnels) 


Astropsychanalisez votre famille,vos amis, 
| comme les plus grands hommes célèbres. 


Commandez votre disquette pour CPC 6128 ou CPC 664 
(PORT GRATUIT) à : 


Bernard VILLEMIN 
317, Av. de Verdun - 83110 SANARY - Tél. 94 74 32 00 
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is : Pour payer 
a nonnaie. s. 


=choix Copy=pièce Del=effacer 


LE 


7; 


à, a 
LR 
RSS 


a 
FN 
LES VRAIS LIONS 
PROGRAMMENT 
__V_E c 
Une ligne téléphonique est à ! À 
votre disposition, vous mettant = IN (L 
en contact direct avec la rédac- FA , 
tion. Ceci est un service sans ) ENG 
égal ! Respectez simplement les çà su 
horaires et les jours que nous UT) '\% }) KW « 
vous indiquons : Cs Cr ad) 
MERCREDI de 9 h à 12h et de Ai es A LL) 
14hà17h. | PRE PL“ 
VENDREDI de 9 h à 12 h seule- A 
ment. = ji 
Tout appel en dehors de ces cré- :| 
neaux sera refoulé : ne dépensez A 
pas inutilement votre argent | de 


Le numéro : 


LOF HR HR HE 


26 Monnaie/Lavergne g./61-87 

HO OH HR RER HER EH 
4% ‘s$=somme en f et c 

99 ‘sc-somme en centimes 

6% ‘ni,n2,n5,n4,nS=nombre de ieres 


pieces.de 2emes pieces,etc... 

7% ‘essai=nbre de pieces affichees 
84 ‘aide=nombre d'aides non compta- 
bilisees 


9% ‘airnombre d'aides 

149 ‘er=nombre d'erreurs 

114 ‘bienspoints bonne reponse 

124 ‘scsscore par exercice 

156 ‘ex=nombre d'exercices!:ekirexer 


cice 1 etc... 


14% ‘total=score general 
139 ‘effl,eff2,effz etc,,,=pour ne 


plus effacer 

164 ‘sol,soz,soï etc...=valeur 
chaque piece 

179 ‘pl$,p2$,.pi$ etc...=pieces de 
chaque niveau 


de 


189 ‘eff=pour pouvoir effacer 
196 ‘somme=somme affichee 
266 la monnaie 


219 MODE i:ON BREAK 
ER 12%:CLS 

226 DIM 5$%(25) ,sc(25) ,n1 (25) ,n£2 (25) 
ni (25) 404029) ,n9 (29), MAX1IS$ (25) ,pri 
$ (29) ,mon (25) ,mi (25) ,m£ (25) ,mi (ES), 
mé (25), m3 (25) 

256 WINDOW #1,9,:9,2,24:WINDOW #2,9 
5273424. 

24% GOSUR 1486: ‘accents 

256 GOSUE 1916: BORDER 6: GOSUH 
‘generique 

26% GOSUE 
[a] 

27% 

266 

296 
FA 


CONT: SYMEOL AFT 


1546: 
1916: PAFER @:FEN 1: BORDER 


GOSUE 
GOSUB 


1616: GOSUR 1966: CLS 
2159: ‘niveaux 

GOSUE 1966:CLS 

GOSUE 1826: GOSUER 1966:CLS: 
choix exercices 
314 GOSUR 2656: 
res 

320 GOSUR 4240: 


‘creation caracte- 


‘lecture pieces 


356 GOSUB 4116: ‘cadre 
544 aide=tiessai=é 

256 IF niveaur? THEN GOSUR 2576: RES 
TORE 4676:LOCATE Z,4:FEN 1:FRINT #1 
gs: LOCATE ©,9:FRINT cS6$:LOCATE 53,1% 
:FEN Z:FRINT c26$:LOCATE ©3,18:FRINT 
ci: LOCATE 5,22: FRINT côS$:GOTO 28 


3 

F6 IF niveaur5 THEN GOSUR 2$66: RES 

TORE 4726: LOCATE Z,4:FEN Z:FRINT #1 

O$:FEN 1:LOCATE 3,8:FRINT #5%:LOCAT 
F,1E: PEN 1:FRINT +f2$:LOCATE 3,18: 

FRINT c56:LOCATE 3,22:FEN 2: FRINT 

CSS 

574 IF niveau=i THEN GOSUE 2554: RES 

TORE 4626:LOCATE 3,4:FEN 1:FRINT cÿ 

Gb: LOCATE 53,8:FEN 2:FRINT cé@#: LOCA 

TE S,IS:FEN 2Z:FRINT ci6$:LOCATE S,1 

G:FRINT cS$:LOCATE 5,22:FEN 1: PRINT 
cit 

586 FOR t=i TO 2S:READ s$(t),sc(t), 

niCt),n2(t),n3Ct) ,n4Ct) ,nSsCt) ,MAXIS 
(t),prig$(t) ,mon(Ct),mitt),meCEt) ,micCt 
),m4(t},mS5(t):NEXT 

596 IF exizi THEN 516: 

somme 

466 IF ex2=i THEN 826%: ‘trouver une 

somme 

419 IF ex%=i THEN 1216: ‘rendre la 

monnaie 
426 ‘ 
RS) 

446 

456 

466 

476 

486 

496 

596 

519 FLOT 7,256+av, 3: DRAW 7, 288+av,.i 
:DRAW 25,3512+av, 3%: DRAW 7,55é6+av, à 

526 ex=ext+i 

554 FEN 1:LOCATE 9,2:FRINT "Somme a 
trouver: "sLOCATE 9,24:FEN SG: FRINT" 
Azaide":LOCATE 34,24: FRINT "Fæstfin"s 

FEN Z:LOCATE 9,23: FRINT CHKS (246) +0 
HAS (24i1)+"=choix":FEN 1:LOCATE 18,4 

SPRINT "Copyzpiïce":LOCATE 29,25: F 
EN Z:FRINT "Del=effacer 


‘faire une 


FAIRE UNE SOMME 


9936 essai=®: = INT CRND#S) +1: FEN 2: LO 
CATE ©6,2:FRINT 5$%(x) 
56% GOSUR 1916: FAFER 6:FEN 1: BORDER 


(e] 

576 IF INÉEY(G)=@ THEN GOSUR #976@: 
vers le haut 

586 IF INEÉEY (2) =6 
vers le bas 


THEN GOSUE “2826: ° 


1900 


J90 IF INEÉEY(79)=0 THEN effsisessai 
ressai-l: GOSUR FES: ‘efface 

6% IF INEEY(9)=6 THEN essairessai+ 
1: GOSUR 23556: ‘affichage piece 

61% ‘IF INEEY(I18)z=6 OR INEÉEY(6)=6 T 
HEN 766 

62 IF INÉEY(SE)=6 THEN GOSUK 
GOTO 696%: "Fin 


nt nt 


RIRE 


bi, IF INFEY(69)=06 THEN aide=aidet+i 
:GOSUE 2296:FEN 2: LOCATE 9,25: FRINT 


CHR (246) +CHRS (241)+"=choix!":FEN 1 
: LOCATE 18,2S:FRINT "Copy=pice":LO 
CATE 29,25: FEN 2: FRINT 
Ms'aide 
64% IF 
EN 676 
65% ‘LOCATE 
66% GOTO 576 


INEEY (18)=6 OK INHEY(6)=6 TH 


5,2: 


FRINT essai 


674 IF ex3=1 THEN 1296: ‘rendre mon- 
naie 
684 IF sc(x)=somme THEN GOSUE 2876 


vrai OU faux 
4: AND 


ELSE 3216: 
69 IF INKHEY(38) 
ï THEN 696 
76% IF INKEY(38)=6 THEN 
niveaux 
719 IF ex 
‘suite 
724 IF exlz=i 
suite 
RTE 
746 ‘ 
756 
76 
774 
78% ‘ 
79% 
SISISREES 
816 
826 
RTE) 
a 


INFHEY (47) &5% 


27%: ‘menu 


=1 THEN CLS #i:GO0T0 1216: 


THEN CLS #1:G0OT0 Si6: 


TROUVER LA SOMME 


exsext+il 
FEN 1:LOCATE 9,2:PFRINT "'Ecris 1 
F''s: LOCATE 268,2:FRINT "  c'"':LOCATE 
9,24: FEN Ses: FRINT'A=saide":LOCATE 34 
324: FRINT "Fefin'":LOCATE 9,25: FRINT 
"Delseffacer'"':LOCATE 22,28: FEN &sF 
RINT "Enter pour valider 
84% FLOT 624,16,:3:DRAW 128,16, 
856 x=INT (RND#5) +1 
8664 GOSUR 1926: "affichage pieces 
67% GOSUR 1916: FAFER 6@:FEN 1: BORDER 
Fe 
886 
596 
CTSTS) 
916 
EX: FRINT 
FEN Z:LOCATE 


SE 
Fa) 


IF INEÉEYS$&<: 
QÉ=INEEYS 

IF pas=£ THEN LOCATE 22, 2$:FEN 
"Enter ":FOR a=zi TO ZO:NEXT: 
22,29:FRINT "Enter":F0 


y dE 


THEN 896 


22 


"Del=effacer 


| 976 
| 986 
| HEN 966 


| 1976 


sSomme:'":FEN 1:LOCATE 2$5,2:FRINT "| 


KR a=i TO 
924 LOCATE h+pas,Z:PEN S:FRINT " 
FOR ai TO S6:NEXT:LOCATE h+pas,5:F 


26: NEXT 


L2 


RINT " ":FOR a=1 TO-SÉ:NEXT 

954 IF INEHEY(18)=06 OK INÉHEY(6)=6 TH 

EN 1516 

94% IF INHEY(79)=06 

‘efface 

956 IF INKHEY(69)=9 THEN aide=aide+i 

:GOSUER 2296: GOSUR 1726: FEN 3:LOCATE 
Tarn FRINT "Dels-effacer":LOCATE 2% 
29: FEN Z:FRINT "Enter pour valider 

ve aide | 

960 IF INKHEY(S3)=9 THEN GOSUR 

GOTO 1696: Fin 

IF g$="" THEN 966 

IF qg$é<CHR$ (48) OK qg$:CHR# (57) T 


THEN GOSUER 2696: 


RTS RTSE 


996 IF pas*:i THEN pas=il:qq#=LEFTS#(q 
q+,1) 
1966 LOCATE h+pas,2:FEN ZsFRINT Q$: 


qq$=qq$+q$:q#$="":pas=pas+i: GOTO 966 
1916 nen+i:qqg$(n)=9q%$ 

1926 gg$="" 

1956 IF n=2 THEN 1646 ELSE pasrdih= 
28:q$="":FOR a=1 TO S5%6:NEXT:GOTO 8 
96 : 

1946 IF qgq#(2)="" 
"66": GOTO 1676 
1986 IF LEN(qgq#$(2))22 THEN somt=oqq# 
(1)+"6"+gq$ (2) : GOTO 1976 

196% som$b=qqg$(1)+Q9q$(2) 
n=%:qq$(1)="":qq$(2)="t" 


THEN som$=qqg$(1)+ 


| 1986 IF sc(x)=VAL(som#) THEN GOSUE 
2876 ELSE GOSUR 23216:'vrai ou fa 
LU 

1996 IF INKEY(358):2%6 AND INKHEY(47)« 
+9 THEN 1696 

11909 IF INÉHEY(38)=0 THEN 276: ‘menu 
niveaux 

1119 CLS #K#1:GO0OTO0O 826: ‘suite 

1126 ‘ 
| 1136 

1146 

1156 ‘ 

1166 RENDRE LA MONNAIE 

1176 

1186 

119% 

1206 

1219 FEN i:LOCATE 9,2: FRINT "Tu rec 


ois":LOCATE 24,2:FRINT "pour payer" 
:LOCATE 9,ZS:FEN 2Z:FRINT "Rends la m 
onnaie. ":LOCATE 9,24:FEN 3: FRINT'"A= 
aide":LOCATE 34,24: PRINT "Fefints PE 


N 2:LOCATE 9,25: FRINT CHRS$ (246) +CHR 
&(241)+"=choix":FEN 1 
12264 FLOT 624,16,27:DRAW 128,146,5 


259 LOCATE 18,25: FRINT 


"Copy=piice 


Me LOCATE 29,2S:FEN SPRINT "Delzeff 
acer 
1246 FLOT 7,336+av,3:DRAW 7,288+av, 


ZE: DRAW 25,312+av, 3: DRAW 7,33bHavs = 
1289 exrextis «= INT (RND#5) +1 

1269 FEN Z:LOCATE 19,2:FRINT maxi$( 
X):LOCATE 55,2: FRINT pri$(x) 

1276 GOSUR 1916:FAFER 6:PEN 1: BOKDE 
F © i 


128% GOTO 57%: "affichage pieces 


296.IF sommezmon(x) THEN GOSUE 287 
à ELSE 2216: "vrai ou faux 
1:06 IF INÉEY(38)<2%6 AND INKHEY(47)*# 
+0 THEN 1766 
1518 IF INÉEY(38)=06 THEN 276: ‘menu 
nivealix 
H1:G0OT0 1216: ‘suite 


13526 CLS 
1556 
1:46 
1356 
1766 
1376 
1586 
15:96 
1466 
1416 
1426 
1456 
1 446 
1456 
1466 
1476 
148% SYMBOL 125,866, 
%OR, BIC 
1490 ÉEY 135,CHR$ (123) 
1506 SYMBROL 125,%6,%8,%IC, LOG, A7E, 
HE, MIC 
1519 KÉEY 1286,CHR$ (125) 
1529 RETURN 
15236 ‘generique 
ia CLS:FOR w=i TO 166:FLOT 366-w, 
220+w, 2: DRAW 3606-w,206-w,2: DRAW 316 
+4, 206 Ww,;2:FLOT 506-w,216+w/5, 2: DRA 
W EOS5+w/5, 2204+W,2: DRAW 2316+w,216+w/ 
5, 2: DRAU 305+Ww/7,206-Ww,2:DRAW :66-w 
s216+W/5,2:PLOT 263+w, 212+w/23, 23: DRA 


FIN DE FROGRAMME 


SOUS FROGRAMMES 


les accents 
410,430, 66, U7E 


W FA6— Wy 21? 2+W/5,2 
1556 IF w=26 THEN 1576 


T6, 


156 FLOT 2GE 
206-w, 3: DRAW 
-w, 210+Ww/5, 0: DRAW 295+w/5,2706+w, 2: D 
RAW 516+w,216+w/5, 6: DRAW 265+w/7,26 
O-wW, 6: DRAW 266-w,210+w/5, @3 FLOT Z@S 
y, BLB+W/E, Ds DRAW ZO8+Ww,212+w/3, 6%: N 
EXT 

157% LOCATE 15,17:FEN 2: FRINT "6.LA 
VERGNE" : LOCATE 17,23: FEN 1: FRINT °p 


260-w, 226+w, 9: DRAW 


166 FEN 1:LOCATE 1,7:FRINT 


| me. ":LOCATE 14,11:FRINT 


316+w,206-w, 0: FLOT 2:66) 


ropose ...":FOR A=i TO 1666:NEXT 
1589 CLS:FLOT 196,360,23:DRAW 546,36 
9,3: DRAW 546,166,3:DRAW 166, 166,3: D 
RAW 196,300,3:FEN 3:LOCATE 17,12:PR 


INT "MONNAIE" 

1596 GOSUR 1916:FOR a=i TO 26066%:NEX 
T: RETURN | 

1666 ‘IF aide=1i THEN RETURN 


161% CLS:GOSUB 1966:FLOT 16,366,2:D 
RAW 6:6,2306,2: DRAW 6239,1606,2: DRAW 1 
9; 186, 2: DRAW 19,:06,2:FEN 1: LOCATE 
6,1%: FRINT "ETES-VOUS UN NOUVEAU JO 
UEUR#": LOCATE 19,14:FRINT "(O/N)" 
1626 GOSUB 1916 
1656 IF INKEY(46)£: 
+9 THEN 1639 

1646 IF INKEY(46) = 
E tot=%s:ex=0: RETURN 
1659 CLS:FEN 1:LOCATE 1,1:FRINT "Ce 
programme propose 5 niveaux: "!"':LOCA 
TE 6,3:FEN 2:FRINT "- Fijces jusqu 
a 1/2F., "I LOCATE 11,4:FRINT !"- Fiïce 
s jusqu'a 1F.'":LOCATE 16,5: FRINT 
Fiïces jusqu'a 16F. 


à AND INHEY (34) + 


THEN RETURN ELS 


"Chaque 
niveau permet de: “: PEN 3: LOCATE 6, 
G:PRINT "- Fabriquer une somme, ":LO 
CATE 11,16: FRINT "- Trouver une 5om 
"— Kendre 1! 
a monnaie. 
167% FEN 1:LOCATE i1,13:FRINT "A tou 
t moment, il est possible de:":FEN 
2: LOCATE 6,15:FRINT "- Sortir d'un 
exercice, (F) "LOCATE 9,16: FRINT "- 
Demander de l'aide. (A) '":LOCATE 12,1 
7:FRINT "- Effacer une piïce. (DEL)" 
168% FEN 1:LOCATE 1,19:FRINT "Il es 
t prudent de retenir que:":FEN 3:LO 
CATE 6,21: FRINT ‘"-Les aides ne sont 
pas illimit£es.'":LOCATE 7,2%:FRINT 
"-Les erreurs viennent en d‘ductio 
n°" 
169% GOSUB 191% 
1766 FEN 2:LOCATE 17, 


25:PRINT "ESFA 


CE":FOR ai TO 166: NEXT:LOCATE 17,2% 
SPRINT " “FOR azi TQ 146:NEX 
ï 

11716 IF INKHEY(47)2>6 THEN 1766 ELSE 
CLS: GOTO 286: ‘niveaux 

1726 IF essaizmi (H)+mEe(x)+miz(x)+m4t( 
H)+mSCx) THEN 5666 : GO0TO 12:66 ELSE 
2946 

17236 


1746 som$="":pas=dins%:h=25:gg$(l)= 
RL Ê qgq% (2)æt"t "sgq$=" LL 

1754 LOCATE ZS$,2:PFRINT "  ":LOCATE 
28,2:FRINT " "is ff$=LÉFTS(STRS (somm. 


e), LENCSTRS (somme) )-2) 
| 6006 
23 


1766 IF ff$="" THEN LOCATE 28,2:FRI 
NT somme: GOTO 1774 ELSE LOCATE 24,2% 
sFRINT ff$:LOCATE 28,2:FRINT RIGHTS# 
(STRS (somme) ,2) 

1776 FOR aa=i TO 16:LOCATE 24,2:FRI 
NT LEFT#$(STRS#S (somme) , LEN(STRS (somme 
))-—-2):LOCATE 28,2: PRINT RIGHTS (STRS 
(somme) ,2):FOR a=i TO 166:NEXT:LOCA 
TE 24,2: PRINT " “s LOCATE 28,2:FRI 


NT "  ":FOR a=1i TO 196: NEXT:NEXT 
1786 RETURN 
179 LOCATE 25,2:PRINT "  ":LOCATE 


28,2: PFRINT "0 Mi fFS=LEFTS (STRS (somm 
e) , LEN(STRKS$ (somme) ) -2) 

1866 IF ff$="" THEN LOCATE 28,2:FRI 
NT somme:GOTO 1774 ELSE LOCATE 24,2% 
sFPRINT f+f$:LOCATE 28,2:FRINT RIGHT# 
(STKS (somme) , 2) 

1819 ‘choix exercices 

1826 FLOT 1,1,2:DRAW 1,1276,2:DRAW € 
26, 129, 2: DRAU 226,1,2: DRAW 1,1,2:FL 
OT 166,132, 7%:DRAW 169,246, 3: DRAW 46 
9,246,23:DRAW 486,116,3:DRAW 322,116 
, =: FLOT 326,241,1: DRAW 226,766, 1: DK 
AW 6:64,:66,1:DRAW 626,226, 1: DRAW 48 
2,220, 1 

183564 FEN 1:LOCATE 36,5:FRINT "if"sLO 

CATE 25,8:FRINT "FAIRE UNE SOMME'":F 
EN S:LOCATE 206,12:PRINT "2": LOCATE 
13,1S:FEN Z:FRINT "TROUVER UNE SOMM 

E ":FEN Z:LOCATE 16,1G:FRINT "Ets LO 
CAÂTE 2,22:FRINT "RENDRE LA MONNAIE 
184% GOSUR 1916 

1856 IF INKHEY(64)25:9 AND INKHEY (65) =: 
+4 AND INEHEY(S57)2%:9 THEN . 18564 

186% IF INKHEY(64)=6 THEN 
G:ex3=6: RETURN 

1876 IF INKHEY (65) =6 
Giexie@s RETURN 

1884 IF INKHEY(57)=0 THEN 
G:ex2=6: RETURN 
1894 RETURN 

1966 INK @,6z:INK 1, 
@: RETURN 

1919 INE 6,6:1INF 
4 6: RETURN 

1926 IF ni(x)=9 THEN 1956 

1956 IF pi$=f1i$ OR pi$=c56$ THEN FE 

N 1 ELSE PEN 2 

1949 FOR gg=i TO n1i(x):LOCATE Zé6-av 
1,4:avi=avi+S:FRINT pi$:NEXT gg: 
1959 IF n2(4x)=6 THEN 1986 

ren: va p2$=cS0$ OR p2$=f5$ THEN PE 
N 1 =39:Ve8:ELSE FEN 2:H=36:V=8 
1970 LCR gq=i TO n2(x):LOCATE h-ave 
,vViave=save+5:FRINT P2$:NEXT qq 


THEN ex?zi:exilz 


O:INE Z,O:INE E, 


1,153:INE 2,24: INF 


1984 IF nI(x)=96 THEN 2616 
1999 IF pi$=c20$ OR pi$=ci9$ THEN F 


24 


EN 2 ELSE FEN 1 

2906 FOR gg=i TO nE(x):LOCATE é-av 

3, 1%savi=avi+S: FRINT PES:NEXT qq 

2916 IF n4(xi=ze THEN 26464 

2926 IF p4$=cio$ OK p4$=cSé THEN FE 

N 2 ELSE FEN 1 

2956 FOR gqq=i TO n4(x):LOCATE %6-av 

4,18:av4=av4+S:FRINT P4#:NEXT qq 

2646 IF n3(x)=9 THEN 2676 

2056 IF pS$=cS5$ THEN FEN 2 E 
1 

2666 FOR qq=i TO nS5(x):LOCATE 26-av 

Jeeiavo=avo+Sg: FRINT p5S$:NEXT qq 

2976 KETURN 

20896 ‘efface 

2696 IF gg$="" THEN RETURN 

2166 LOCATE h+pas-1,2: PRINT " spas 

pas-1l:qq$=LEFTS(qq$,LEN(gqq#)-1) 

2119 RETURN 

2126 ‘choix niveaux 

2156 FLOT 226,1,1:DRAW 226,466, 1:FL 

OT 1,2@6,1:DRAW 646,266, 1: FLOT 1,2% 

9,1: DRAW 629,299, 1:DRAW 629,1, 1: DRA 

W 1,1,1:DRAW 1,:599,1 

2146 FEN 2: FAFER &:LOCATE 6, 6: FRINT 


SE FEN 


"NIVEAU 1'":LOCATE Z6,6:FRINT "NIVE 
AU 2": LOCATE 6,18: FRINT UNIVEAU fa 
FEN Z:LOCATE 25,168: FRINT "4 INFORMA 
TIONS 


2159 GOSUB 1916: FAFER 6:FEN 1: BORDE 
FF © 

2166 IF INHEY (64) 
+9 AND INHEY (57) <: 
4 THEN 2166 

2176 IF INKHEY(64)=6 THEN 
E TURN 
2186 IF 
E TURN 
2199 IF 
E TURN 
2246 IF INKHEY(56)=6 
1 H0SÈE 1656: RETURN: ‘ 


2219 


+ AND INEEY (65) « 
AND INÉEY (Séi< 


NIVEAUS= 1: 


INEEY (65)=6 THEN niveauz®:f 


INEEY (57)=6 THEN NIVEAU=X: 1 
THEN GOSUER 16% 
informations 
2226 
2236 
2246 
2250 
2266 
2276 
22864 
2296 airaitli:ESSAI=MHiaviräiaverbiav 
Per av4=s6: av5=6: sommes: CLS HE 
25406 IF ex3=i THEN n1(X)zmi Gosinatx 
Deme(K)inECH)emE CH) snm4ts)emdikiinst 
H)i=ma (x) 

27516 IF ex2ri THEN 2SET@ 
2526 CLS #2: LOCATE 9,24: FEN 
"Azaide":LOCATE 74,24: FRINT 


aide somme 


3: FRINT 
Fefin" 


:FLOT 624,16,2%:DRAW 128, 16,3: LOCATE 


2. IF nlxizo THEN aide=aidet+i: Gi 
TO 25664 

25464 effil=l:FEN 
: LOCATE Zé-avi,4s:avi=avi+S:FRINT pi 
H:INEXT ggiavi=i6:somme =sommet+ni (x) 
#*sol:essai-sessait+ni (x) 

2550 IF aide=1i THEN FOR a=i TO 546: 
NEXT:GOTO 2486 


LR 


E: FOR qgq=i TD nicx) 


2569 IF n2(xi=® THEN aide=aide+i:G0 
TO 2466 

2570 IF pe$=co6$ OR p2$=f5$ THEN FE 
N 5 2: H=5S: Ve: ELSE FEN S:H=S6: V=8 


2586 efferil:FEN Z:FOR qgq=i TO ne(xi 
:LOCATE h-av£, vrave=ave+5s PRINT PES 
:NEXT qgoqravi2=i6: somme =somme+ne(x)* 
sos:essail=-essai+ne(x) 

2594 IF aide=2 THEN FOR a=1i TO So: 
NEXT:GOTO 2486 | 
2466 IF nEiCx)z THEN aide=aidet+i:Gli 
TO 2456 

2416 effisl:FEN FOR qgq=i TO n£iCxi 
sLOCATE Œé-avi,13:avi=av:+5: FRINT p 
EH:INEXT ggiravi=3:6:somme =sommet+ni (x 


La 
., 
… 


)xsoi:essairessait+ni(x) 
2424 IF aider THEN FOR a=1 TO 566: 
NEXT:GOTO 2484 


24H06 IF n4(x)zo THEN aide=aide+i:Gi) 
T0 2466 

2446 effäzi:FEN 
:LOCATE 3é6-av4,1iB8:avasav4+S: PRINT p 
HHINEXT gqrav4=3ü: somme =somme+n4(:#| 
)#sod:essairessait+n4(x) 

2456 IF aide=4 THEN FOK a=i TO 
NEXT:GOTO 2486 

24604 IF nSCx)i=% THEN aide=aide+i:Gi 
TO 2486 

2476 effS=l: FEN Z:FOR qq=i TO n5(x) 
: LOCATE Sé-avS, 2%: avé=avs+s:FRINT p 
SHINEXT qoqravir36: somme =somme+ns (x 
)X*soS:essairessait+ns (x) 

2484 IF essai <#ni Cx)+n2 0x) +n23 (x) +n 
4(x)+nSCx) THEN RETURN ELSE effi=é: 
effiroieftfi=o:eff4stieftfs=0 

2494 IF ex2z=1i THEN LOCATE #4,2£:FRIN 
T LEFTS(STRS (somme), LEN (STRKS$ (somme } 


a 


:: FOR gg=i TO n4(x) 


CLR 


)-2):LOCATE 28,2:FRINT RIGHT#(STRE(C) £&C 


somme),Æ): 

5544 FOR aazi TO 16:FEN Z:LOCATE 9, 

298: FRINT es Ceci est la solution 
#4": FOR az1i TO 166: NEXT: LOCATE 9 

, 2S:PRINT effa$t:FOR ai TO 1OG:NEXT 

:NEXT 

2519 FOR azi TO 1966: NEXT:ICLS #ls FL 

OT 624,16,23:DRAW 128,16,2%:FEN #1, 

LOCATE #1,14,S5:FRINT #1, "DESOLE ! " 

: FEN #1, LOCATE K1,7,12:FRINT #1," 


Tu n'as pas trouvi"eLOCATE #1,7,1S: 
FRINT #1,'"malgr£t ces aides... "FOR 


a=di TO 666: NEXT: GÜSUR 2GËés bilan 
253264 IF exiri THEN 696: ‘menu/suite 
2326 IF ex£si THEN 1696: menu/suite 
254% IF ex3=i THEN 1266: menu/suite 
2556 plh=cs6b:pr$=ecr20$:pi$=cloé:p4as 


eco$:pob=cit:solrS6%:sor=26:soirit:s 
o4=5:s08=1l:eflh=sefcsobiefzésefcitées 

efsh-efcibéief4t-efcihiefs$sefcigiK 
ETURN 


2566 pit=fitb:pei$efSh:pi=fié: p4ÿrc 
5S6$:pS5$=cSh:so0o1-1006:s02=500:s0ï= 6 


Eu RE 


G:Ss04=56: s05=8:eflit-effiothiefz$setf 
Shrefihreffrhiefd4b-refc50b:efts$refcs 
&: RETURN 

2579 plih=fi$i:p2$=csabi piece oé: pis 
cité: p5$=cSs$:sol=166:sot=S6: soir sé: 
so4=16:s05=5:efl$reffidhiefitrefcisné 


: RETURN 


2586 

2596 

RNSTSTS) 

616 creation caracteres 

ZGE6 

ét 

2646 

2854 SYMEOL 258,43, %F MIE, RLO, LOF, & 
SF,MES,SFF: SYMEOL 29535, CO, RFO, REC, # 


2S2,8FE, 8 


LD 


TE, UPE, SPF, %7F, EF: SYMBOL 
,#E7 
266% SYMEOL 254,45,%F, REC, 38 
bo, FE, FE: SYMEOL 256,806, 8F6, 870, 
TEU7E, %7F, %7F, U7F:SYMEOL %49,8FE, & 
FE, U7E, 70, %7F, MF, &F, Es: SYMBOL 248 
UG7, LOF, UOE, DO, FE, FC, FO, CO 
2674 SYMBOL 244,900, 43,07, 8, LIT, UE 
UC, 79: SYMBOL 259,%7F,%EF,@EE, BEF 
SEFF, SPF, @FF, #7E: SYMEOL 255,%7F, 82 
SUP, IF @F, 7%, %O: SYMEOL 245,%7E 
UFFSFF, @FF, IE, IC, &9C, 299: SYMEOL. 
254,%99,%99,%009,%99,%09, M9, &OC, 6 
2686 SYMBOL 236,8%FF,%FF, MES, &CF, CF 
CB, RFF, 87E: SYMEOL 247,80, 8C0,%E6, 
MED, PIC, 490, LCE: SYMBDL SEB,8CE, 
RCE, LOF, CF, UOF, 8 1F, USE: SYMBOL 
PUFE, FC, FC, 2FB,%F6,%E6, LCO, Be 


NUDF,LOE, F6, SFC, RFC, FE, 806 


ETS, 


ET RS 


2696 SYMBOL 225,6,0,1,7,15,31,26,66& 
:SYMBOL 222,124,124,176,255,255,255 


,255,2556:SYMEBOL 2%1,255,255,254,252 
,252,125,127,47:SYMEOL 2356,6%,5%1,15 
,15,7,1:SYMEOL 229,231,255,255,255,5 
55,%,1,121:SYMBOL 228,252,252,124,7 
49,241,745,231,207 

27608 SYMEDL 227,159,6%,127,199,%,11 
265: SYMEOL 2%6,153,119,11%,11 


25 


3 TIRE 
Se 4 Ed 9 


7,193,295,127,31: SNEOR ee. 


:295,285,2958,748,247, 
Er Er-s ee 
229,207, 207, 7207, 207,: 


207, 207: SY 


MBOL 223,207,2279,2209,297,113,748,75 
5,255 | 
2719 SYMBOL 222,46,45,77,77,169,755 


,254,248:SYMEOL 221,6,0,128,274,746 
,129,56, 156: SYMBOL 226, 158, 222, 206, 
207,2067,207,707,207:SYMBOL 219,267, 
207,159,159,6%,126,254,252: SYMEOL © 
18, 282, 248, 249, 176, 224, 128 

2726 SYMEOL 217,6,3,7,15,28,56,56, 1 
26: SYMBOL. 216, net 
126,255,255, > 


55,254 252 


»,292, 24 
FH,279,207, 191,62, 126: SYMEOL 

1,295, 255, 227,229, 251, 239, 235, 126 
2734 SYMEOL 213,06,192,224,246,748,% 
Je ee 14: LL A 
9,191,62,127,14 | 

2746 GYMEOL 216,6,0,1,3,7,15,21,62: 
SYMEOL 269, 63, 127, 127,127,299,299,2 


J9, 290: SYMEOL 208,255, 295, 295, 255. 1 


“34 


24,175,124,61:SYMEOL 267,31,127,255 
255,254, 252, 248, 241: SYMEOL 266,227 
,231,255,295,0955,295,2S5,295: SYMBOL 


205,255,255,2955,255,76,214,766,214 
2756 SYMEOL 264,255,255,255,255,255 
,255,63,15:SYMBOL 263,248,254,255, 6 
3,65,63,6%,63:SYMEOL 262,63,6%,6%, 6 
3,63,63,6%,063:SYMBOL 261,255,255,25 
5,255,57,165,41,169:SYMBOL 266,255, 
255,255,255,2955,255,254,246: SYMBOL 
199,6,0,0,178,224,246,748,248 
2766 SYMEOUL 198,2527,254,254,254 
255,255, 255: SYMEOL 197,295,255,255 
255,26, 126, 176,28: SYMBOL 196,248, 
48, 240,224, 192 

2776 SYMEOL 195,31,127,255,255,249, 
241,795, 193: SYMBOL dE 
255 53,24: SYMEOL 192,127, 1 


__—— 
es en 


sou, 1979, 129,133, 
HE, 249, 249, 249,249, 249, 249: SYMEOL 1 


92, 00,466, 66,66,24,193,129,195:SYMEÛ 
L 198,255, 255,255, 255, 127,127,127.6 
2784 SYMEOL 189,295, 295, 299,255, 454 
204, 2534,292:SYMBOL 191,258,255, 
127,127,51,127,127 

2794 SYMEOL 185,1,15,63,255, 298,295 
sos 200: SYMBOL 184,06,0,6,6,1,5,7,1 


15, 


J:SYMEOL 179, 128,240,252,2955,259,25 
Disods eos SYMEOL 178,0,0,0,0,128,19 


ES 


2,224,246:SYMEOL 182,15,%1, Los ie 
7,127,127,255: SYMEOL 188,28,1,25,63 
162,22,0,12 

28606 SYMEUL 177,746,248 254 
255: SYMBOL 187,124,292,252 


204,294, 2953: de 


252,124,25,129,25%1: GYMEOL 185,255 


ne y TI 4 


Lan Lun] Lan Lu | 
DS 4 SOS 9 


26 


254,254,254,2 | 


251: : SYMEOL 214,245, 


| es 


127,127,127,66,29,28,12:SYMEOL 186, 


255,255,255,285,16,115,124, 16: GYMBO 
" 176,255,294, 294,254, 252, 246, 248,7 
46 


2819 SYMBOL 181,15,7,2,1:SYMEOL 186 


200 9 2095 2905 2009 127,65,15, 1: SYMBOL 
174,255, 255, 255, 255, 254, 292, 240, l'E 


3: SYMBOL 175,246,224,192,128 

3876 SYMEOL 172,51, HER EE 
245,255,255:SYMBOL 171,248,254,%1, 
5,207,767,207, 159: SYMEOL AE 
5,254, 292, 248, 241,246, 246: SYMEOL 16 
9,159,21,6%,127,255,25 GYMEU) 


s299 200) 19, 15: 
L 1735,255,259,259,299,2 


28,110,118,76 


2956 RETURN 

2846 ‘ 

2856 

286% ‘ 

2976 FOR aa=i TO 19:FEN S:LOCATE 5, 


:FRINT D$:FOR a=z1i TO 1M6%:NEXT:LOC 
ATE 9,2S:FRINT effa$:FOR azi TO 166 
:=NEXT:  NEXT 
2886 
2996 
2946 
Vais 
2916 ‘FOR aa=i TO 1G:FEN Z:LOCATE © 
s 20 PRINT DB$:FOR azi TO 196:NEXT : LI) 
CATE 9,2S:PRINT effa$:FOR a=i TO 164 
G:NEXT:NEXT 
2920 IF ex2=1 THEN 5616 
2959 IF essai=ni(x)+n2(x)+n3(x)+n4( 
H)+n30Cx) THEN 3666 
CLS #£:FLOT 624,16,2%:DRAW 128, 
6,3: FAFER #2,6: LOCATE #2, 4,42: FEN # 
Re #2, "Cependant, tu n'as pa 
s": LOCATE #2,3,7: PRINT #2, "trouvi ! 
a solution la plus'"':LOCATE #2,1%,16© 
:FRINT #2, "courte." 
2956 FEN #2,2:LOCATE #2,5%,15:FRINT 
#2, "DESIRES-TU ESSAYER (O/N)" 


IF ex2%=i THEN 17%6@: ‘bon/mau- 


2966 IF INÉEY(54)<>6 AND INÉEY (46): 
:4 THEN 2956 
2976 IF INÉEY(46)=6 THEN 2626 ELSE 


CLS #Z:PFLOT 7,3536-av,&:DRAW 7,265 
Vs D: DRAW 25,2712-av,6:DRAW 7,556-av, 
Grav=6s:PFLOT 7,72%6-av,3:DRAW 7,266-a 
Vs: DRAW #5,712-av,3:DRAW 7,2356-av, 
S:ESSAI=G: avi=b:ave=@ravis@savé=és a 
VS=6: somme=b: aide=® 

2984 LOCATE 9,24:FEN Z:FRINT'Asaid 
e":LOCATE 254,24:FPRINT "Fzfin'":FEN € 
:LOCATE 9,2S:FRINT CHR$ (246) +CHRS# (CT 


41)+"=choix": PEN 1:LOCATE 18,25:FRI 
NT "Copy=pièce":LOCATE 29,2S:FEN 2: 


FRINT "Del=efface":FLOT 474,16,23:DF 
AW 128,16,3:GOT0 576: ‘nouvel essai 
2994 CIF exïizi THEN 529: retour es 


sai 
Fos FAFER G:CLS #1:FLOT &624,16,%:D0 
FAWN 129,16,3:PFEN #1, 2: LOCATE #1,15, 
bb: FRINT #1, "ERAVO !'O:FEN #HIi,1: LOCAT 
E H1,4,1G:FRINT #1, "Tu as trouv£i la 
meilleure": LOCATE #41,14,12:FRINT # 
l, "solution. "FÜR az TO 666 es NEXT 
FG1S biensbien+S:GOTO F4ic 


2426 bien-<bientéi 
FOEG CLS #1:LOCATE 
sFRINT #1, "BILAN" 
Hate FLÜT 624,16,2%:DRAW 126, 1é6,3:LO 
CATE ,2S: PRINT effas 

ROSE PEN #1,1:LOCATE #1,3,S:FRINT # 
l,'"Ex+ercice numiro"sLOCATE #1,5,7:F 
RINT #1, "Nombre d'erreurs: ":LOCATE 
#1,2,9: PRINT #1, "Nombre d'aides:"i:Ll 
DICATE #1,2%,11:FRINT #1, "SCORE, pour 
cet exercice: ":FEN #1,2:LOCATE #1, 
15, 15: FRINT #1, "TOTAL: " 
Fed scrbien-(er+ai)!iIF sc 


#1,1S,2:PFEN #1, 


46 THEN 5 


10704 ScE=OTRE (sc): tot=tot+sc:FEN #1 
sy: LOCATE #1,20,S:PRINT #1,ex:LOCAT 
E H1,21,7:FRINT #1, er: LOCATE #1,16, 

Gr FRINT #1,ai: LOCATE #1,29,11: PRINT 
H#l,sc#:LOCATE #1,22,15:FRINT #1,to 
È 

686 FEN #1, 1:LOCATE #1,8,19:FRINT 

#1,"ESFACE == Suite": LOCATE 41,8, 
L1:FRINT #1,"M ==: Menu" 

1494 FLOT 7,276-av,6:DRAW 7,288-av, 

Os DRAW #5,312-av, 6: DRAW 7,256-av, &: 

avr: aidez 

2184 er: air: biensd:sc=ti:ESGAI=S: 
avlisoiavists avi=O:avéäs=6: avisé: somme 

moi effirorieftfi=sodieffi=bieft4=oieftfs 

ÊTe) 

5119 som$="!":pas=t: 

3126 RETURN 


mauvaise reponse 

5196 

SRUIETe 

2216 FOR aa=i TO 164:FEN 2Z:LOCATE 5%, 
29: FRINT æ#x ERREUR, essaie encore 

*#'!: FOR ai TO 166: NEXT:LOCATE 9 

DS: PRINT etfa$:FOR a=i TO 164: NEXT 
:NEXT 

22236 IF exlsil DK ex 

OLATE 9,25: PFRINT CHRS& (246) +CHRS (241 
it'echoix "es FEN 1: LOCATE 18,25: FRINT 
"Copys<piïce":LOCATE E9,25S:FEN Z:FR 
INT "Delseffacer 


I=i THEN FEN 2%: 


ss L 


H2E6 


2:56 IF e: 
=er+1:LOCATE 
28,21h=25S:FRINT " 
EN Z3:FRINT "Delzeffacer!":LOCATE 
25: FEN Z:FRINT "Enter pour valider" 
:GOTO 896: ‘nouvel essai 
2246 IF exizil OR ex3%=i THEN erser+i 
: GOTO Tes nouvel essai 


:2=1 THEN som$= 
29,2:FRINT " 
"se LOCATE 9,25:F 


ie 
de de C] 


"uspas=éier 
Me LOCATE 


affichage pieces 


av=é THEN 22:86 
av=64 THEN 2456 
av=1i28 THEN 5526 
av=192 THEN 53596 
av=2956 THEN 5666 


2206 IF pig$=f1i$ OR pi$=cS0$ THEN FE 


N 1 ELGE FEN 2 

3296 IF eff=1i THEN 5426 

2466 IF avi=36 THEN ESSAI=ESSAI-1:KR 
ETURN 


F416 LOCATE Z6-avi,4:FRINT pi$:somm 
e=somme+sol:avi=avi+S:FOR a=1i TD 26 
GO: NEXT: RETURN 

Z4264 IF avi=® THEN eff=6:ESSAI=ESSA 
I+1:RETURN 
HA4EOG IF effii 
sai+i: RETURN 
2446 avi=savi-5:LOCATE 36-avi, 4: FÂFE 
KR G:FRINT efi$:somme=somme-sol:eff= 
G: FOR azi TO 266:NEXT: RETURN 

2456 IF pa$=c56$ OK p2$=f5$ THEN FE 
N 1 :H=25:Ve8:ELSE FEN 2:H=36:V=8 


29 THEN eff=biessaises 


3466 IF eff=i THEN 3496 
3476 IF av?=36 THEN ESSAI=ESSAI-1:R 
E TURN 


5486 LOCATE H-av2è,ViFRINT P2$:somme 
=somme+soz:ave=ave+5g: FOR a=i TO 266 
:NEXT: RETURN 
FA4QG IF av2r® 
I+1: RETURN 
2540 IF eff2s 
Sai+il:RETURN 
2519 ave=sav?-5:LOCATE H-av2, Vi: FAFER 
G:FRINT ef2$:somme=somme-so2:eff=6 


THEN eff=6:ESSAI=ESSA 


-4 THEN effr0:essaires 


: FOR a=i TO ZGG:NEXT: RETURN 

2526 IF pi$=c26$ OR pi=ci0$ THEN F 
EN 2 ELSE FEN 1 

2536 IF eff=i THEN 5566 

2546 IF avi=26 THEN ESSAI=ESSAI-Ii:R 
ETURN 

2554 LOCATE Zé6-avi, 13: PRINT p3$:som 


sn, 


me=somme+soïs:avi=av#+S: FOR a=i TO © 


27 


GG: NEXT: RETURN 

2566 IF avi=é THEN eff=t: ESGAISESGSA 

I1+1:RETURN 

2576 IF effit 

sSai+i:RETURN 

3586 avi=av3-S:LOCATE 36-av3,13:FAF 

ER G::PRINT ef5$:somme=somme-soï:ef 

f=G: FOR azi TO 2ZH6:NEXT: RETURN 

5596 IF p4$=ci6$ OK p4$=cS5$ THEN FE 

N 2 ELSE PEN 1 

To IF eff=i THEN 3656 

5616 IF av4=2:6 THEN ESSAI=<ESSAI-1:FR 

ETURN 

3629 LOCATE 57-av4,18:FRINT p4#:s0om 

me=somme+so4:av4=av4+5: FOR azi TO € 

OO: NEXT: RETURN 

F6T4 IF av4=d THEN eff=6:ESSAI=ESGA 

1+1:RETURN 

3646 IF eff4i:0 THEN eff=éiessaires 

Sai+i:RETURN 

365% avazsav4a-S:LOCATE 27-av4, 16: FAF 

ER G:FRINT ef4$:somme=somme-soé:etf 

=@: FOR a=1 TO ZOO: NEXT: RETURN 

3666 IF p5$=cS$ THEN FEN 2 ELSE FEN 
1 


59 THEN eff=tiessaires 


IF eff=1 THEN 37066 


3670 
3686 IF av5=36 THEN ESSAI=ESSAI-1:R 
ETURN 


769% LOCATE 357-avS,22:PRINT p5$:som 
me=somme+soS:avo=avo+S: FOR ai TO # 
GG: NEXT: RETURN 

27646 IF av5=9 THEN eff=6:ESGAI=ESGA 
I+1:RETURN 

2716 IF eff55:06 THEN eff=biessaires 
Sai+1:RETURN 

5726 avS=avs-5:LOCATE 37-avÿs,22:FAF 
ER O:FRINT ef5$:somme=somme-soÿ:etftf 
6: FOR azi TO ZHG:NEXT: RETURN 

E756 
5744 
2756 
5764 
2776 
2784 
2796 
58646 
F819 
3826 FLOT 7,:236-av,6:DRAW 7,288-av, 
A: DRAW 25,712-av,6:DRAW 7,376-av, & 
F976 av=zav+64 

2846 IF av=526 THEN av=® 

3856 FLOT 7,276-av, 3: DRAW 7,288-av, 
E:DRAW 25,712-av, 3: DRAW 7,736-av,=5 
286% FOR a=i TO 266:NEXT 

2874 RETURN 

7884 

39964 

59606 


choix pieces bas 


28 


2916 
2926 
2956 
E946 
3956 
2986 
5974 FLOT 7,2376-av,@:DRAW 7,288-av, 
GO: DRAW 25,:712-av,6:DRAW 7,75é6-av, © 
2984 avzav-64 

3996 IF avi THEN av=z256 

4600 FLOT 7,276-av,ï%:DRAW 7,268-av, 
ZE: DRAW 25,312-av, 2: DRAW 7,276-av,E 
40916 FOR a=1i TO 206:NEXT:RETURN 
4626 
4026 
4634 6 
4956 
4666 
4676 
4686 
4996 
4166 ” 
4119 FLOT 1,568,23:DRAW 1,1,2%:DRAW 1 


choix pieces haut 


, 


le cadre 


12,1,3:DRAW 112,368,3:DRAW 1,:68,3: 
DRAUW 22,399, 3: DRAW 629,:99,3:DRAW 6 


24,384,%:DRAW 16,284,3:FLOT 629,299 
,3:DRAW 6:%9,32,3:DRAW 627, 16, 3: DRAW 
627,384, 

4176. FLOT 674,16,2%:DRAW 128,16,2:DR 
AW 112,1,3:PLOT 125,16,23:DRAW 125,5 
84,3:DRAW 112,368, 

4136 MOVE 5,376:FILL 2:MOVE 115,266 
:FILL B:MOVE 25,296:FILL 1:MOVE 635 
,266:FILL 1 
4146 RETURN 
4159 

4166 

4179 

4186 

4196 

426€ 

4219 ‘ 

4229 ‘ 

4230 

4246  cS$=CHRS (255) +CHRS (252) +CHRS ( 
16) +CHRS (8) +CHRS (6) +CHRS (2S2) +CHRS ( 


251) 


creation pieces 


4256  efcS$=CHRS CEE) +CHRS CHE) +CHRE C 
19) +CHRS (B) +CHRS (8) +CHRS CHR) +CHRS CE 
£) : 

ASS  CiE=CHRS (2S4)+CHR$ CES) +CHRS € 
169) +CHRS CB) +CHRS (8) +CHR# (249) +CHRS € 
£48) 

4274  efclé=CHRS CHE) +CHRSE CHE +CHRE € 


16) +CHRS CB) +CHRSE CB +CHRE € 
£) 

4286 c168=CHRS (244) +CHRS (245) +CHR& ( 
247) +CHRS$ C1) +CHRS CB) +CHRS CD) +CHRSE ( 


22) +CHRS CS 


8) +CHRS CLEO) +CHRE CEE A4) +CHRS CEE) +CH 
RS (16) +CHRS CB) +CHRS (8) +CHRS (8) +CHRS& 
CRÉES) 4CHRE CETTE) +CHRS (EI 7) 
4296 efcin$- CHRS CEZ) +CHRS CEE) +CHRS € 
EP) +CHRS (16) +CHRS (8) +CHRE (8) +CHRE (CE 
)+CHRS CER) +CHRS CE) +CHRS CEE) +CHRS CL 
D) +CHRS (8) +CHRS (8) +CHRE (8) +CHRSE CEE) 
+CHRS (T2) +CHRS (52) 
4566 ciB$=CHRS (2ET) +CHRE (229) +CHRS ( 
225) +CHR8 (221) +CHRS (16) +CHRSE (CB) +CHR 
B (B) +CHRS (8) +CHRS (CB) +CHRSE CLIS) +CHRE 
(228) +CHRS (224) +CHRS (226) +CHRS$ (10) + 
CHARS (8) +CHRS (8) +CHRS (8) +CHRKSE (8) +CHR 
$ CPE IL) +CHRS (227) +CHRS CLET) +CHRS (217 
) +CHRS (16) +CHRS (8) +CHRSE (8) +CHKS (8) + 
CHRS& (8) 
41 efciB8S=CHRE CEE) +CHRE CES) +CHKS ( 
EP) +CHRS CE2) +CHRS (10) +CHRS (8) +CHRKS ( 
8) +CHRS (6) +CHRS (8) +CHRS CET) +CHRE CES 
)+CHRS CED) +CHRS CE2) +CHRS (16) +CHRS (8 
)+CHRS CB) +CHRS (8) +CHRKS CB) +CHRS CES + 
CHARS CE) +CHRS CE) +CHRS CEE) +CHRKS (16) 
+CHRS (8) +CHRS (8) +CHRS (8) +CHRSE (8) 
A2 ci9S=CHRS (250) +CHRS (226) +CHKS ( 
229) +CHK$ (218) 
AUTO efci9$=CHRS CEE) +CHRSE CEE) +CHRKS ( 
HR) +CHRKS CE2) 
4746 crob-ci8é+ci9s$ 
4:56 efcro$refcis$stefci9$ 
46 CcHOB=CHRSE (217) +CHRS (215) +CHRS ( 
215) +CHRS (19) +CHRS (8) +CHRSE (6) +CHRSE ( 
&) +CHRS (216) +CHR$ (214) +CHRS$ (212) +CH 
RE CLEO) +CHRSE CB) +CHRSE (8) +CHRS (8) +CHRE 
DES) +CHRS$ (211) +CHRS$ (237) 
4576 efc50$= CHRS CE2) +CHRS (22) +CHRS ( 
EP) +CHRSE (16) +CHRS (8) +CHRS (8) +CHRSE(E 
)+CHRS CE2) +CHRS C3E) +CHRS CEZ) +CHRSE C1 
de UE 
+CHRS CEE) +CHKS CE 
4:96 c98$= ER cd oo CIRE 
BAT) +CHRS (199) +CHRS (10) +CHRSE (8) +CHR 
H (0) +CHRS (6) +CHRS (8) +CHRS (2009) +CHRE 
(206) +CHRS (207) +CHRS (198) +CHRSE (16) + 
CHARS CB) +CHRS (8) +CHRS$ (8) +CHRS (Bi +CHR 
(208) +CHRS (265) +CHRS (261) +CHRE (197 
3 +CHRS (169 +CHRS (8) +CHRS (8) +CHRS (8) + 
CHARS (8) 
4596 c99#$=CHR# ( 
240) +CHK# (196) 
4466 efc98$5=CHRS (32) +CHRS$ C32) +CHRS ( 
ER) +CHRS (ER) +CHRS (16) +CHRS (8) +CHRKSE À 
8) +CHRS (8) +CHRS (8) +CHRS CET) +CHRS CIE 
)+CHRS CE2) +CHRS (TE) +CHRS (16) +CHRSE (8 
)+CHRS CB) +CHRS CB) +CHRE (BB) +CHRS CEE + 
CHRS CE2) +CHRS CET) +CHRS CE2) +CHRSE (16) 
+CHRSE (8) +CHRS (8) +CHRSE (8) +CHRSE (8) 
4419 efc99$=CHRS C5) +CHRS CEE) +CHRS À 
22) +CHRS$ (52) 


236) +CHRS$ (204) +CHKS$ € 


4426 F1%=c98$+c99$ 

A4 efFl$sefc98$+efc79% 

4448 FBS=CHRS (216) +CHRS (195) +CHRS C1 
94) +CHRE (199) +CHRS# (16) +CHRS CB +CHRE 
CE) +CHRSE (8) +CHRS (8) +CHRS (209) +CHRSE € 
195) +CHRE (192) +CHR$ (198) +CHRS$ CL 3 +É 
HRS (8) +CHRSE (8) +CHRS (8) +CHRS (BE) +CHRS# 
(196) +CHRS (147) +CHRS (191) +CHR$ (159) 
+CHRS (16) +CHRS (8) +CHRS (CB) +CHRS (63 +0 
HRS& (8) 

4456 F9S=CHRS (276) +CHR$ (264) +CHRSE CE 
99) +CHR$ (196) 

446% efFE$=CHRS CSE) +CHRS CEE) +CHRE CS 
2) +CHRS CEE) +CHRS (16) +CHRS (CB) +CHRS# CB 
) +CHRS& (8) +CHRS (8) +CHRS C32) +CHRS CHE) 
Éd De CNRS RIRE TON CREER CES 


HRS C2) CHRS (32) +CHRS (32) +CHRS (A 6) à 
CHARS (8) +CHRS (8) +CHRS (8) +CHRKS (8) 
447% efF9$=CHRS (52) +CHRS (32) +CHRS CE 
2) +CHR$ (35 

4486 F106$=-F846+F9% 

4496 efFid$=-efF8$+efFr9$ 

4506 FE$=CHRS (184) +CHR$ (185) +CHRS (1 
4) +CHRS (179) +CHRS (178) +CHRS$ (16) +CH 
R& C8) +CHRS (8) +CHRS (8) +CHRS (8) +CHRS ( 
8) +CHRS# (1835) +CHRS (142) +CHRS (186) +CH 
R$ (143) +CHRS$ (177) +CHRS$ (16) +CHRS$ (6) + 
CHRS (8) +CHRS (8) +CHRS (8) +CHRS (8) +CHR 
$ (1423) +CHR$ (147) +CHRS$ (187) +CHRS (14: 
) 

4519 efFI$=CHRS (52) +CHRS CE) +CHRS CE 
2) +CHRS$ (32) +CHRS CI2) +CHRS (16) +CHRS € 
8) +CHR# (8) +CHRSE (8) +CHKS (8) +CHRS (6) + 
CHARS CES) +CHRS CES) +CHKSE C2) +CHRSE CEL) 
+CHRS CID) +CHRS (10) +CHRS (8) +CHRS C6) + 
CHRS (8) +CHRS (8) +CHRS (8) +CHRS CES) +CH 
RE CHR) +CHRSE CIE) +CHRS (32) 

4520 F4$=CHRS#& (1475) +CHR$ (16) +CHRS$ CB) 
+CHRS (8) +CHRSE (8) +CHRSE (8) +CHKS (8) +CH 
R$ (182) +CHRS (265) +CHRS (201) +CHR$ (15 
&)+CHRS# (176) +CHRS (16) +CHRKS (8) +CHRE ( 
6) +CHKS (8) +CHRS (8) +CHRS (8) +CHKS(1B1 
)+CHRS (186) +CHRS (145) +CHRS$ (174) +CHR 
(175) 

45206 efF4$=CHRSE CHE) +CHRE (16) +CHRE (6 
> +CHRSE CB) +CHRS (8) +CHRS (8) +CHRS (85 +L 
HAS CEE) 4 CHRSE CHE) +CHRS CE2) +CHRS CEE + 
CHRS CEE) +CHRS (16) +CHRS CB) +CHRE (8) +0 
HRS (83 +CHRS CB) +CHRS (CB) +CHRE CIE + CHA 
he ln Ant 


45356 efFSt=efFirefFAs 

4564 +1568=CHR8 (216) +CHRS& 172) 4+CHRS 
(171) +CHR$ (199) +CHRS (163 +CHRS (93 +CH 
RE CB) +CHRSE (6) +<CHRSE (8) +CHRS (209) +CHF 
E (1764) +CHRE (169) +CHRE (198) +CHRSE LE) 
+CHRE CE) +CHRSE CB) +CHRE CB) +CHRSE (8) +CH 
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RE (268) +CHRS (205) +CHRS C26 13) +CHRS (17 
HE) +CHRS (19) +CHRE CB) +CHRS (8) +CHRE (6) 
+CHRS (8) 

4579 efF1568=CHRS CE) +CHRSE CEE) +CHRK# 


CE) +CHRS CHE) +CHRS (16) +CHRS CB) +CHRE 
(8) +CHRS (5) +CHRS (8) +CHRS CEL) +CHRSE CS 
BI +CHRS (ED) +CHRS C2) +CHRS (16) +CHKSE ( 
8) +CHRS (B) +CHRS (8) +CHRS (8) +CHRE CE) 


+CHRS CET) +CHRS C52) +CHRS CIL) +CHRE (16 


)+CHRS (8) +CHRS (8) +CHRSE (8) +CHRE (E) 
ASGQ F2$=-F1506+c99% 
45906 efF2$-efF150$+efc99# 
48500 effat=" 

Mrbh="xkkexæexx TRES EHIEN #% 
ORNE DEN EE! 
4619 RETURN 


A&24 DATA 6f84,86,1, 1, 1,9,0, di 
49,0,2,0, RS nn “il 1,4, 2F,I1F 
65,95,1,2,6,1, 91970, 90, 1,2,9,0,0,1 
F,56c,56,1,0,06,0,6,68c,68,1,6,1,1,5 
\s2F,1F12,88,1, . 1.5, 42e, 42,6,2,0, 
2 IF 2e 75 111107 110 
4&Ee DATA 283c,25,0,1,0,1, ir eue 
,1,9,1,0,0 1F18,118,2,0, . 1, en 
DC 20509 1,6,1, 790; sir 
.B%c,20,6,1,6, 8, 9770, 70 1; 1; G re 
11F,0F59,45,0, 2,6, 1, .1F25,125,2,1, 


0,1,6,1F,6F19, 96, a 9,4 
484% DATA he 45,0,2,0,1,0,1F,0F285 


NÉTERTE EL da C; 4 1:20 03 2Fc0 
95, 1051219404 8, 2F49,249, 4, Es@uls 
4,1F,76c,250, ré l;, 6,5, 
l, 1,5, 2 2F,85c, Here s1,1,9,440, 44, 6 
,2,0,6, 4,1F,26c, 86,1, 1, do 

4856 DATA 1F2$, 125,2,1,0, 1,9,1F,ScC;, 
95,1,2,6,1,0,0F15,15,6,0,1,1,0,1F,6 


F15,85,1,1,1,1,6, dF65,65,1,0, tuisé 
2F, dF65, 129,211; D,2F,200,4,8,0, 
ru o,1,9, 1F56, 156, 
,8,4,0,2F,0F86, 126,2,1, 9,8, e 
A660 A 29c,29,0,1, 1,1,4,1F,0F92, 
8,6,6,6,1,3,6F28,28, DORE F 
27,65,1,0,1,0,%2F80,288,5,1,1,0,0. 
BF,GFE6,170,35,1,0,0,0,1F66, 140, à, 
1,9,0,1F,0F71,29, D,1,9,1,4,2F26, 2 
>4lslslis12F,1F19, Tor dr 070,8 
4679 DATA 2F56, messe É F7 
5,125,1,0,1,6,1,4F20, 20, sis tre 


te l:4 
.1,1,16F,4F56,556,5, 1, _. 9, 6F65, 66 
5,6,1,0,1,15F, 2F86,126 1,9,1,0,8,1 


RS 108 1212,0,1, 1072710, 790,0, 3, 

2,06,6 

468% DATA 2F55,255,2,1,6,60,1,5F,1FS5 

9,256,5,1,0,0,0,4F86,48%,4,1,1,1,6, 

19F,7F065,295,2,1,2,0,1,5F75, 

she ,1,18F,6F16,2390,5,1,2,6 
510,3,0,8, 1,9,5F,2F35,265,2,1, 


575,5, i 
1,9,2F16, 
&,1,1 
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l,1,%6,10F,2F85,615,6,6, 


,7F65,705,6,2,0,6,1,16F,8F26,186,1, 
1,1,1,6 
489% DATA 6F,606,6,6,0,6,0,10F,5F46 


.469,4,1,6,1, 
F,IiF2S,275,5,1,1, 


SG, iF1Ss 115 Lutin 


à, 1 jee 


1:1,10F,8F45,155,1,1,6,6,1,4F26, 42 
H,4,0,1,0,6, 14F, 0 nr oc. 


6F,8966,é6,4,4,68, e .10F,2F906,710,6,2,0 
1,0 


4768 DATA 2F45,245,3,0,2,6,1,5F,1FS 
5,165,5,1,64,1,1,8F66,866,6,5,6,1,0, 


596,5, 1,2,0,0, 7670, F7 6,5 
5,1,1, ES Star 
L 4 


19F,4F16, 


GES babalslsis 10F 4 2F40, 760, bas 1 
A 
H,1,0,6 
.. AA as LS PS NE ot &F 
ro 6 LA: 9F15,915,6, 8,%,1,1 
,3F,96c, 416, ë, 6,1, 
1,4,1,5F, 1F10,390,3,1,2,0,0 ,1F75,17 
5,1,1,1,6,1,19F,8F16,199, 1,1,2,0,0, 
&F95 695, 6, 12,9, 1.10F.7F75,225, 2, 0 
,1,6,1 
4729 DATA 27F66,2766,2,1,1.1,2,56F, 
15F45,23655,5,1,0,2,1,15:F76,12:70,1,6 
sl 4, 100F,76F,7006,6,2,0,0,0,S55FS 
D 0999 09 doll 20, 14F80, 2520, 2 Pa 
120,4, 56F50,35656,5,1,0,3,6,160F,67 


F2S,2275,5,0 1 ul art 
Ds JO 3 11F49, 2860, 3,1, 1,5 
4726 DATA 39F,3:966,25,1,2,0,0, 
AF, 4806, 4,0,6,6,0,70F50,7056,6,2,6, 
1,9,56F, 19F20,2070,%,1,2,1,4,78F66, 
2864,%,1,1,5,2,50F,41F206,884,4,1,1, 

5,6,14F15,1415,1,6,2,0,3,106F, 75F,2 
596,2,1,0,0,0,22F05,21205,7,6,1,60,1, 


1007, 6 


», |100F,72F,2800,2,1,1,2,6 


474% DATA 27F65,2765,%,1,1,1,5,56F, 
18F,3200,5,6,1, 6 2, 1F25,2125, 5,6, te) 
sys LOF, GE, 790,0, 1,1,6,0,54F,546 
D, TD y 0 SOF, 20FB0,2920,2,1,2,0, 
4,62F56, 6256,6,6,1,5,6,1060F,29F96, 6 
1540,1,15@152) 


16, En, 15F60, 


SERRES 


|SOF,26F26, 15:86, 1 a 
475% DATA 45F,45:066,4,0,1,2,6,16G6GF, 25 
Mod + n,6, EDF, 246, 6,4, 1,6 


,100F,28F95,7105,6,2,6 1,2, 1, 28750, 
256,3, 11,30, 56F, UE ten 
4,5:,41F64,4166,4, &, © 18GF, B3F26 
.1684,1,1, 
1,59F,11F,5:966 
4764 DATA 77F604, 
, B8F2:5,1165,1,6,0,23, 
ee 1,2,5,50F, 48F76, 136 
one bn 3 À 9 108F, AP, 7600, 6,6,%, 

9,51F86,85180,5,6,0,3,6,50F, 17774, 
3716 D,1,6,2,100P,10660,6,6,5,09,4 


3,5, 
,106F,232F,6706,6,1,1,8,6 


BTET 


d,2.6,64F55,6455,6,0,2,1, 


RU 


1,2,8,6 

race Lo és INSISIS 
5 ABFES 1825, 4, 

M, 0,68 0 Es Da OF 


7,6 


D, 


JE DÉBUTE EN BASIC AMSTRAD 

C. Delannoy. 152 pages. 

Réf. El .. SF 
Ce livre est écrit dans un langage très simple. La 
démarche est progressive, chaque notion est pré- 
sentée sur un exemple simple accompagnée de 
nombreux exercices. L'auteur nous familiarise avec 
les erreurs possibles. 


FAITES VOS JEUX AVEC AMSTRAD 
C. Delannoy. 200 pages. 

Réf. E7 10F 
Ce livre vous propose un éventail de jeux exploitant 
pleinement les possibilités graphiques et sonores 
des AMSTRAD CPC 464, CPC 664 et CPC 6128. 
Son rôle ne se limite cependant pas à celui d'un 
simple recueil de programmes. Tout d'abord, il vous 
offre la possibilité d'adapter chacun d'entre eux en 
fonction de vos goûts et de vos désirs, et cela sans 
même que vous ayez besoin de connaître le Basic. 
C'est dans ce but que chaque jeu est accompagné de 
nombreuses suggestions de personnalisation qui 
vous sont expliquées dans le moindre détail. 


AMSTRAD 56 PROGRAMMES 

SR. Trost. 160 pages 

Réf. 52 .... 18F 
Ce livre vous propose 56 programmes prêts à l'em- 
ploi dans de nombreux domaines d'application per- 
sonnels et professionnels: finances personnelles, 
gestion, immobilier, analyse de données, éducation. 


JEUX D'ACTION 
P. Monsaut. 96 pages. 


trace, D.C.A. blitz, squash, alphabet, numérix, atter- 
rissage, etc. 


GEREZ VOTRE 
PORTEFEUILLE BOURSIER 
Jean-Claude Despoine et 

François Plerre 

Réf. S05, 140 p., 98 F 

Cet ouvrage aidera l'amateur à gérer plus 
efficacement son portefeuille de valeurs 


PROGRAMMEZ VOTRE 
TRAITEMENT DE TEXTE 
Jean-Claude Despoine 

Réf. S06, 140 p., 128 F 

Le traitement de texte présenté dans cet 
ouvrage, pour l'essentiel en assembleur, 
est destiné à tous les possesseurs de 
CPC 464 (avec ou sans lecteur de 
disquettes), 664 et 6128 


PROGRAMMES 
D'INTELLIGENCE 
ARTIFICIELLE 

Daniel Lebigre 

Réf. S07, 240 p., 148 F 

Cet ouvrage permettra au lecteur 
d'aborder le monde fascinant de 
l'intelligence artificielle 


MIEUX PROGRAMMER 

EN ASSEMBLEUR 

Thomas Lachand-Robert 

Réf. S08, 240 p., 148 F 

Cet ouvrage est destiné à tous ceux qui 
ont déjà acquis les bases de la 
programmation en assembleur ou en 
langage machine. 


TECHNIQUES DE 
PROGRAMMATION DES 
JEUX EN ASSEMBLEUR 
Georges Fagot-Barraly 

Réf. S09, 160 p., 98 F 

Cet ouvrage contient des programmes 
de jeux écrits pour les ordinateurs 
Amstrad CPC 464, 664 et 6128 


JEUX EN ASSEMBLEUR 


Eric Ravis 

Réf. S10, 104 p.,78F 

Les 18 jeux présentés dans ce livre 
utilisent toutes les possibilités de votre 
micro-ordinateur. 


LOCOSCRIPT 

Bernard Le Dü 

Réf. S11,140p.,110F 

Ce livre est une introduction et. par sa 
démarche pédagogique. il vous 
permettra une découverte aisée et rapide 
de ce traitement de texte 


MISE AU POINT DES 
PROGRAMMES BASIC 
Claude Vivier et Yvon Jacob 

Réf. S12,148p.,98F 

Ce livre étudie la manière dont sont 
stockés, dans la mémoire d'un micro 
ordinateur. un programme Basic et ses 
vañables associées 


JEUX DE REFLEXION 

Georges Fagot-Barraly 

Réf. S13. 200 p., 78F 

Cet ouvrage contient vingt programmes 
de jeux de réflexion écrits pour les 
ordinateurs Amstrad 


ASTROCALC 

Gérard Blanc et Philippe 
Destrebecq 

Réf. S14, 168 p., 148F 

Si vous souhaitez disposer d'un outil de 
calculs permettant l'érection d'un thème 
natal ou d'une révolution solaire, la 
comparaison de thèmes, cet ouvrage 
vous comblera 


CREER DE NOUVELLES 
INSTRUCTIONS 

Jean-Claude Despoine 

Réf. S15, 144 p., 128F 

Cet ouvrage contient de nombreux 
exemples de programmes pause de x 
secondes, intégration d'un programme 
machine, dessin d'un quadrilatère 


GAGNEZ AUX COURSES 
Jean-Claude Despoine 

Réf. S15,112p.,98F 

Ce livre se propose d'expliquer comment 
ilest possible d'utiliser un ordinateur pour 
étudier une course d'une maniere 
rationnelle et rapide 


CP/M PLUS 

Anatole d'Hardancourt 

Réf. S17, 208 p., 148 F 

Après le succès des CPC 464 et CPC 
664, utilisant la version 2 2 de CP/M 
Amstrad présente ses deux nouvelles 
machines (CPC 6128 et PCW 8256) 
équipées de la version 3 0, encore 
appelée CP/M Plus 


GUIDE DU BASIC 

ET DE L'AMSDOS 

Jean-Louis Greco et Michel 

Laurent 

Réf. S18, 288 p., 128 F 

Ce guide est un dictionnaire complet du 
Basic Amstrad disponible sur les modèles 
CPC 464, CPC 664 et CPC 6128 


GRAPHISME 

EN TROIS DIMENSIONS 
Thomas Lachand-Robert 

Réf. S19, 240 p. 148 F 

Vous pourrez, grâce à ce livre, 
représenter des polyèdres, des surfaces. 
voire des objets plus complexes entrois 
dimensions sur l'écran de votre 
ordinateur 


ASTROLOGIE/ 
NUMEROLOGIE/ 

BIORYTHMES 

Pierrick Bourgault 

Réf. S20, 160 p., 108 F 

Cet ouvrage se présente en quatre 
parties : astrologie occidentale, astrologie 
chinoise, numérologie, biorythmes 


D — 


ee DE COMMANDE 


17, rue Russeil 44000 NANTES 
Frais de port en sus: 25F 


CP/M 2.2 

Anatole d'Hardancourt 

Réf. S21, 248 p., 128F 

Avec l'Amstrad le système CP/M 
disponible pour le première fois sur un 
ordinateur coûtant moins de cinq mulle 
francs, ouvrant à celui-ci l'immense 
bibliothèque des programmes 
d'applications professionnelles 


GUIDE DU GRAPHISME 
James Winford 

Réf. S22, 208 p., 108 F 

Cet ouvrage présente, à l'aide 
d'exemples de programmes en Basic 
toutes les techniques indispensables 
pour permettre au lecteur de réaliser de 
façon simple et rapide ses programmes 
graphiques 


L'AMSTRAD EXPLORE 

John Braga 

Réf. S23, 192 p., 108 F 

A ceux qui ont déjà acquis les rudiments 
du Basic, ce livre permettra d'approfondir 
leur connaissance de la programmation 


PROGRAMMATION 

EN ASSEMBLEUR 

Georges Pagot-Barraly 

Réf. S24, 208 p., 108 F 

Tous les utilisateurs d'Amstrad qui 
veulent aller plus loin, après avoir maitrisé 
les ressources du Basic. trouveront dans 
cet ouvrage les éléments nécessaires 
pour aborder la programmation en 
assembleur 


56 PROGRAMMES 

Stanley R. Trost 

Réf. S25, 160 p.,78F 

Ce livre vous propose 56 programmes 
prêts à l'emploi dans de nombreux 
domaines d'application personnels et 
professionnels 


PREMIERS PROGRAMMES 
Rodnay Zaks 

Réf. S26, 248 p., 108 F 

Ecrivez votre premier programme Basic 
sur Amstrad en moins d'une heure 


JEUX D'ACTION 

Pierre Monsaut 

Réf. S27, 96 p., 49 F 

18 jeux d'action en Basic pour votre 
Amstrad tank. trace, D C A .biltz, 
Squash, alphabet, numérix, atterrissage 
etc 


LA DECOUVERTE 

DE L'AMSTRAD 

D.J. David 

Réf. PO1, 216 p., 115F 

Cet ouvrage apprend à programmer en 
Basic l'Amstrad CPC et à en utiliser les 
Capacités graphiques et sonores Ce livre 
s'adresse aux utilisateurs débutants de 
l'Amstrad CPC 464, 664 et 6128 


EXERCICES EN BASIC 
POUR AMSTRAD 

M. Charbit 

Réf. P02, 256 p., 130 F 

Tous les programmes de cet ouvrage, 
destiné au débutant qui veut se 
perfectionner 


BASIC AMSTRAD . 
1°)Méthodes pratiques 

J. Boisgontier 

Réf. P21, 208 p., 105F 

Destiné aux possesseurs d'Amstrad qui 
ont déjà pratiqué le langage Basic 


À renvoyez avec votre règlement à STAMP DIFFUSION, 


Ci-joint mon règlement par chèque ou mandat. 


BASIC AMSTRAD 

2°) Programmes et fichiers 

J. Boisgontier 

Réf. P22, 144p.,95F 

Pour les utilisateurs initiés, une mine 
d'applications 

* des programmes graphiques, 

- des programmes de gestion de fichiers, 
- des jeux à exécutiontrès rapide, 

- des programmes éducatifs 


BASIC PLUS 80 ROUTINES 
SUR AMSTRAD 

M. Martin 

Réf. P23, 168 p., 100 F 

L'auteur propose 80 routines pour 
simuler des fonctions qui n'existent pas 
directement sur la machine 


PERIPHERIQUES 

ET FICHIERS 

SUR AMSTRAD CPC 

D.-J. David 

Réf. P0O3, 168 p., 120 F 

Ce livre étudie la programmation en Basic 
des fichiers et des pénphériques. Le 
lecteur doit déjà bien maïtnser les 
instructions de base du CPC 


TURBO PASCAL 

SUR AMSTRAD 

D. Brandais et F. Blanc 

Réf. P04, 232 p., 135F 

Destiné aux possesseurs d'Amstrad 464 
664,6128 et PCW 8256, ce livre leur 
permettra de maïtriser ce langage très 
puissant. Une bonne connaissance d'un 
langage comme le Basic est nécessaire 


ASSEMBLEUR 

DE L'AMSTRAD 

M. Henrot 

Réf. P24, 192 p., 105 F 

Pour lire cet ouvrage. il faut avoir une 
bonne pratique du langage Basic 


CP/M PLUS SUR 

AMSTRAD 6128 ET 8256 

Y. Dargery 

Réf. P25, 128 p., 100 F 

L'utilisateur initié de l'Amstrad CPC 
trouvera ici tous les éléments qui lui 
permettront d'utiliser à fond les "plus de 
CPM3 


RSX ET ROUTINES 
ASSEMBLEUR 

SUR AMSTRAD 

D. Roy et J.-J. Weyer 

Réf. PO5, 368 p., 200 F 

De très nombreux programmes de 
graphismes et de mathématiques 
permettront aux possesseurs d'Amstrad 
(464, 664, 6128) d'améliorer leurs 
connaissances en assembleur Z80 


CLEFS POUR 
AMSTRAD CPC 

Tome 1 - Système de base 
D. Martin 

Réf. P06, 224 p., 140 F 

Un mémento indispensable au 
programmeur de CPC 


CLEFS POUR 

AMSTRAD CPC 

Tome 2 - Système disque 

D. Martin et P. Jadoup 

Réf. PO7, 232 p., 155 F 

Consacré aux Amstrad CPC 464, 664, 
6128 et PCW 8256, ce mémento procure 
un accès rapide à l'ensemble des 
informations indispensables à l'utilisateur 
du système disque : commandes, points 
d'entrée des routines disque, blocs de 
contrôle 


coin du livre 


LE LIVRE DE L'AMSTRAD 
D. Martin et P. Jadoup 

Réf. P08, 256 p., 120F 

Pour l'amateurinitié qui veut en savoir 
plus 


102 PROGRAMMES 

POUR AMSTRAD 

J. Deconchat 

Réf. PO9, 248 p., 120 F 

Ce livre, idéal pour le débutant, va, au fil 
de ses 102 programmes de jeux guider 
le lecteur dans l'exploration du Basic 
Amstrad 


SUPER JEUX AMSTRAD 

J.F. Séhan 

Réf. P10, 240 p., 120F 

Des jeux d'adresse, de réflexion et de 
hasard pour l'amateur, déjà initié, qui veut 
maitriser rapidement le Basic. 


AMSTRAD EN FAMILLE 

J. F. Séhas 

Réf. P11, 240 p., 120F 

Une sélection de 40 programmes pour la 
maison touchant à sept domaines 


AMSTRAD A L'ECOLE 

D. Vielsen et A. Garcla-Ampudia 
Réf. P12, 232 p., 120F 

21 programmes d'enseignement assisté 
par ordinateur à recopier. 


AMSTRAD EN MUSIQUE 

D. Lemahieu 

Réf. P13, 244 p., 165F 

Cet ouvrage va permettre à l'utilisateur, 
déjà initié au langage Basic, la traduction 
d'œuvres musicales sur Amstrad. 


PHOTOGRAPHIE 

SUR AMSTRAD ET APPLE 

P. Moigneau et X. de la Tuthaye 

Réf. P14, 192 p., 180F 

Permet à l'amateur, déjà initié au Basic, 
l'exploration de toutes les ressources de 
la photo 


CLEFS 

POUR DBASE Il ET Ill 
M. Keller 

Réf. P15, 464 p., 285 F 

Cet outil de référence pour tout 
programmeur 


CLEFS POUR MULTIPLAN 
Version 2.0 

J.-L. Marx et A. Thibault 

Réf. P16, 132 p., 105 F 
Cetouvrage de référence pour 
l'utilisateur de Muttiplan 


SUPER GENERATEUR 

DE CARACTERES 

SUR AMSTRAD 

J.-F. Séhan 

Réf. P17, 216 p., 140 F 

Cet ouvrage, destiné aux amateurs initiés 
au Basic, propose un programme original 
de création de caractères graphiques 


GRAPHISME 

EN ASSEMBLEUR 

SUR AMSTRAD CPC 

F. Plerat 

Réf. P18, 304 p., 145 F 

Cet ouvrage permet de programmer des 
applications graphiques en assembleur 
sur Amstrad. 


CREATION ET ANIMATION 
GRAPHIQUE SUR 

AMSTRAD CPC 

G. Fouchard et J.-Y. Corre 

Réf. P19, 128p., 110F 
Uninformaticien et un peintre se sont 
associés pour donner envie à l'amateur 
de se lancer dans la création d'images 


Veuillez m'envoyer les ouvrages dont j'indique les titres ci-dessous. 


A el 
a Î 
di nee EE 
a 
Total 


CAO SUR MICRO CPC 


(Seconde partie) 


ARCHITECTURE DE LA CHAINE DE TRAITEMENT 


METHODE DU SPLITTING 


d'un logiciel de CAO de 120 Ko intitulé AMSTRAD:3D, assorti d'un livre 

du même nom, édité par PSI. Le logiciel a été délibérément mis dans le 
domaine public, c'est-à-dire que vous pouvez le copier sur une disquette 
AMSTRAD CPC en toute tranquillité chez un revendeur ou un ami. Le livre est 
un gros mode d'emploi du logiciel, pour non programmeur. 
Mais ce programme est riche de ficelles de programmation, liées à l'image- 
rie 3D. Dans cette suite d'articles, Jean-Pierre PETIT explique au lecteur 
toutes ses astuces, ce qui lui permettra peut-être de construire lui-même 


J'": PETIT est directeur dè recherche au CNRS. Il est l'auteur 


son propre programme de CAO. 


INTRODUCTION 


Dans la première partie, nous avons dé- 
fini la structure de données sur laquelle 
nous allions travailler pour développer 
une gamme de programmes d'imagerie 
3D sur AMSTRAD, débouchant sur de 
la CAO sur micro-ordinateur. Mainte- 
nant que nous savons ce que sont un 
OBJET et un BLOC, avant de présenter 
la partie dessin, nous allons évoquer la 
charpente générale de la chaine de trai- 
tement. 


STRUCTURE D'UN 
PROGRAMME 
DE CAO SUR MICRO 


In fine, on cherche évidemment à pro- 
duire de belles images en perspective 
d'objets fil de fer. Mais cet aspect n'est 
pas le plus compliqué. On doit bien sûr, 
à un moment ou à un autre, écrire le pa- 
quet d'instructions qui permet de pas- 
ser d'un point objet XT,YT,ZT à un point 
image XE,YE (en coordonnées écran), 
mais cela n'est pas bien compliqué 


pe 


00 
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n0° 


» : 


d° 
D 


Figure 1 : Fenétrage | 
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Jean-Pierre PETIT 


dans la mesure où le CPC possède un 
FENETRAGE INTEGRE. 

Ce que l'on dessinera sur l'écran, ce 
seront des segments DF (D pour début 
et F pour fin). La séquence de base 
serait : 


PLOT XD,YD 
DRAW XF,YF 


Le premier ordre positionne sur le début 
du segment, le second trace le seg- 
ment DF. Si celui-ci est hors champ ou 
partiellement dans le champ (Figure 1), 
le CPC réalisera automatiquement la 
troncature, ce qui donne à cette machi- 
ne une grande vitesse au tracé. 

Ce qui est important, ça n'est pas de se 
jeter immédiatement dans la construc- 
tion de ce sous-programme, mais de 
créer une structure modulaire maniable 
et. qu'il est possible d'étendre. 

Un logiciel de CAO contient un MODE- 
LEUR, qui permet de créer les objets, 
et c'est la partie délicate du travail de 
programmation. Il existe bien par-ci par- 
là, sur de petits systèmes, des logi- 
ciels de création d'objets 3D et d'image- 
rie, mais en général, l'entrée de don- 
nées est au niveau zéro : on doit 
laborieusement indiquer à la main les 
coordonnées de tous les points, préala- 
blement repérées sur une épure préci- 
se. Pour des objets très simples, c'est 
à la limite possible, mais pour des for- 
mes rondouillardes,comme par exem- 
ple un tore, c'est inexploitable. En règle 
générale, on commence par écrire des 
programmes avec des entrées de don- 
nées numériques, puis, progressive- 
ment, on réalise que le confort d'utilisa- 


tion est le TOUT A L'ECRAN. La saisie 
de chaines au point par point sera 
utilisée lorsque aucune autre méthode 
ne pourra convenir. Pour le reste, on 
utilisera toutes les propriétés GEOME- 
TRIQUES liées à l'objet : est-il contenu 
dans un plan, a-t-il des symétries ? Par 
rapport à un plan, à un axe ( objet de 
révolution ) ou à un point ? 

Un objet peut aussi être construit par 
déplacement ou par déformation d'un 
autre objet (ou les deux combinés). Il 
nous faudra tout un outillage permet- 
tant de mouvoir, de faire tourner, d'éti- 
rer, de tordre tout objet en tout sens. 


Un objet peut aussi être la réunion de 
deux autres objets. Nous nous dote- 
rons également d'un "poste à soudure”. 


Un objet peut être une partie d'un autre 
objet, d'où la nécessité "d'outils de 
coupe”. 

Un des gadgets réellement performant 
est la possibilité de créer des multiples 
d'un objet, en les distribuant selon un 
certain trajet, rectiligne ou courbe. Ce 
type d'opération permet, par exemple, 
à partir du dessin d'une unique marche, 
de construire l'escalier en colimaçon 
d'un coup, ou les rangées de fenêtres 
d'un immeuble. 

D'où une profusion de sous-program- 
mes qu'il serait exclu d'envisager de 
loger dans la mémoire centrale du CPC. 
On aura donc recours au SPLITTING. 


LA METHODE DU SPLITTING 


Comment manipuler un logiciel de 
120 Ko sur un ordinateur qui ne peut le 
contenir ? Réponse : en fragmentant ce 
programme en plusieurs morceaux et 
en passant de l'un à l'autre par un ordre 
de chaînage CHAIN. Ce que l'on conser- 
vera au passage, ce sont les fichiers. 
Imaginons donc un programme décom- 
posé en PROG1, PROG2, PROG3 

Le plus simple est de décider qu'on 
entrera dans cette chaîne par un seul 
de ces programmes, par exemple 
PROG1. Il suffit de mettre en tête de ce 
programme un test et un armement de 
flag (listing 1) : 


Quand on entre par PROG, la ligne 2 
est ignorée, le flag FD est armé, les 
ordres de réservation de place mémoire 
exécutés, le MENU s'affiche et la ma- 
chine se met en attente d'un choix C. 


La ligne 230 dispatche en direction des 
sous-routines concernées. 


Premier cas : 
branchement sur 
un sous-programme réel 


Choisissons l'option 3, elle envoie vers 
un sous-programme 3000 qui existe et 
est exécuté. Dans cette présentation, 
on s'est contenté de simuler la pré- 
sence de ce sous-programme 3000. En 
fin de tâche,la ligne 999 renvoie au ME- 
NU de PROG1. 


Second cas : 
branchement sur 
un sous-programme virtuel . 


Certains des sous-programmes sont 
VIRTUELS. Nous discernons une suite 
de sous-programmes 1000, 2000, 
3000, etc. Mais certains d'entre eux 
semblent avoir été remplacés par un 
branchement à l'adresse 63000. Lors- 
que nous nous réfèrerons à cette adres- 
se, nous trouverons simplement : 


63000 CHAIN"PROG2 


Par exemple, l'option C = 10 chaîne sur 
PROG2. Ce programme débute par (lis- 
ting 2) : 


Comme le Flag FD est maintenant armé, 
il y a court-circuitage de l'affichage 
MENU et de la ligne de choix. On saute 
directement à la ligne de dispatching 
230. 

Celle-ci est différente. L'option C = 10 
renvoie cette fois à un sous-program- 
me 10000 qui existe vraiment dans 
PROG2, qui est donc réel et pourra être 
exécuté. Par contre, certaines options 


Adresses sous-programmes 


1000 
2000 
3000 
4000 


qui étaient réelles dans PROG1 sont de- 
venues dans PROG2 virtuelles. Par 
exemple, l'option C = 1, au lieu d'en- 
voyer sur un sous-programme 1000, 
nous envoie à la ligne : 


62000 CHAIN "PROG1 


C'est-à-dire 
PROG, 
Lorsque nous allons créer cette chaîne 
de traitement, composée de plusieurs 
éléments de programmes, il est inutile 
d'autoriser une entrée par tous ces élé- 
ments. Le plus simple sera de décider 
une bonne fois pour toutes que l'entrée 
s'effectue, par exemple, par PROG1. Il 
y aura donc une seule lecture de la 
ligne de dimensionnement, présente 
dans PROG, mais absente de 
PROG2, notez-le. 

On notera la ligne 5 qui interdit toute 
entrée directe par PROG2. 


qu'on  retournera sur 


Quand le sous-programme 10000 ainsi 
appelé a été exécuté, la ligne 999 ren- 
voie à l'affichage du MENU de PROG2. 
Tant que l'on appellera des sous- 
programmes réels, on restera dans 
PROG2. Mais, dès que l'on tapera sur 
un sous-programme virtuel, il y aura de 
nouveau chaînage vers une autre sec- 
tion de la chaîne de traitement. L'activa- 
tion du sous-programme, dans la nou- 
velle section de la chaîne, se fait auto- 
matiquement puisque le contenu du re- 
gistre C, contenant le choix, n'a pas 
été altéré dans l'opération. 


On a agencé PROG1 et PROG 2 de 
telle manière que certains sous- 
programmes soient présents sur les 
deux programmes et d'autres non. On 
peut résumer cette situation à travers 
le tableau ci-après : 


dans PROG1 dans PROG2 
OUI NON 
OUI NON 
OUI OUI 
OUI OUI 
NON OUI 
OUI OUI 
OUI NON 
NON OUI 
OUI OUI 
NON OUI 
NON OUI 
NON OUI 
OUI NON 
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Pourquoi une telle situation ? Eh bien, 
certains sous-programmes brefs ou 
d'un usage constant, non spécifiques, 
devront être inscrits dans plusieurs 
sections, voire dans toutes. D'autres 
correspondront à des travaux tout à 
fait particuliers, qui seront regroupés 
dans un élément de programme ad hoc. 
Donnons des exemples. Dans la chaï- 
ne de traitement AMSTRAD-3D, le sous- 
programme de chargement d'objets se- 
ra fréquemment sollicité. C'est, par ail- 
leurs, une séquence relativement brè- 
ve. Cette séquence est donnée page 
22, dans le premier article paru dans le 
numéro 20 de la revue. On le trouvera 
donc dans MOD1, MOD2, DES, etc. 

Par contre, toutes les routines de mani- 
pulation d'objets (translation-rotation, 
etc.) auront été regroupées dans 
MOD2 et on ne les trouvera que là. 


Nous avons donné ici un exemple de 
SPLITTING (Split en anglais veut dire 
couper, partager) en deux program- 
mes. Mais vous pourrez évidemment 
vous exercer à créer trois, quatre élé- 
ments de programme. 

Si l'on fait en sorte que les menus des 
différentes sections PROG1, PROG2, 
etc. soient identiques , l'utilisateur aura 
l'impression de tourner dans un pro- 
gramme unique . Seuls de discrets mou- 
vements de drive seront l'indice d'un 
éventuel changement de  section- 
programme. Le seule Hmitation est la 
capacité de la disquette. Si vous avez 
un second lecteur, vous pourrez mani- 
puler un logiciel de 150 Ko, en conser- 
vant une dizaine de Ko pour les fi- 
chiers, avec des sections de program- 
me qui pourront atteindre 20-22 Ko. 
Cela ne représente pas la mémoire 
disponible dans la machine, mais vous 
devrez prendre la précaution de laisser 
une place suffisante pour la PAGE 
ECRAN, sous peine d'interférence 


1 REM FROG 1 
IF FD=1 THEN 
FD=i 


276 


dt Te 


ta F3 


4 DIM XT(49,12),VYT(49,12),2T(49,12) 
: REM Ordres de dimensionnement LEDOG, 60006 ,7000,67000,97006, 61006, 65 
19 REM Sequence d'affichage MENU 


Commun 


15 CLS:FRINT "Choix 
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de 1 a 1#":PRIN 


catastrophique avec votre programme 
résident. 


AMSTRAD-3D est un long programme 
splité, en éléments qui sont : 


MOD1i 
DES 
VOIR 
MINICAO 
MOD2 
MOD3 


On a fait en sorte que l'entrée ne puis- 
se se faire qu'à travers MOD1. 


SAISIE DE CARACTERES 
ALPHABETIQUES 


Il est facile de repérer les options par or- 
dre alphabétique, ce qui permet une ré- 
ponse par une unique pression de tou- 
che. Le CPC possède des majuscules 
et des minuscules. On utilisera une 
astuce pour que cette réponse puisse 
être indifféremment l'une ou l'autre. 
Voici la séquence-type de saisie de ca- 
ractère-réponse en listing 3. 


Ainsi a ou A donnent C = 1, b ou B 
donnent C = 2, etc. 


UN MENU COMMUN 


La séquence MENU sera en listing 4. 


Compte-tenu de la capacité mémoire 
disponible, ce MENU offre un nombre 
optimal de possibilités. 

Vous pourrez modifier les lignes des 
programmes PROG1 et PROG2 en con- 
séquence pour introduire cette saisie 
de caractères et ce MENU plus expli- 
cite. Vous adjoindrez le sous-program- 
me 65000 et vous remplacerez la ligne 


LISTING 1 


266 


00, 61006 


SERA 


FROG1 


200 par la séquence 200 à 220. Dans 
ces conditions, si vous tapez une lettre 


de l'alphabet, allant de a à m inclus (ma- 


juscules ou minuscules), il y aura simu- 
lation de l'exécution d'une tâche, puis- 
que nous avons en principe créé 13 
sous-programmes réels ou virtuels. 

Mais, si vous tapez un o ou un p, rien 
ne se passera, sauf un réaffichage im- 
médiat du MENU. Seule la lettre q provo- 
quera une sortie de programme. Dans 
une chaîne de traitement bien construi- 
te, seul cet ordre doit permettre une 
sortie de programme, ce qui impliquera 
un ‘"blindage” soigné de tout l'ensem- 
ble, pour empêcher toute sortie acci- 
dentelle sous l'effet d'une erreur. C'est 
un travail assez pointu car il faut, bien 
entendu, imaginer toutes les erreurs 
possibles avant de mettre un produit 
en circulation. Mais les utilisateurs ont 
sur ce plan une imagination sans limite. 


COMMENT TRAVAILLER 
AVEC DEUX LECTEURS 


Un logiciel de CAO sur CPC trouvera sa 
pleine puissance si on dispose de deux 
lecteurs. Lorsqu'on lancera le program- 
me, la question "avez-vous un second 
lecteur ?" sera posée. En cas de ré- 
ponse positive, on armera un flag en 
faisant 


FLAGDRIVE2 = 1 


Tous les fichiers de travail, objets, 
blocs, seront alors consignés sur lé lec- 
teur numéro 2. Dans les opérations 
d'écriture ou de lecture, il suffira d'ad- 
joindre : 


IF FLAGDRIVE2 = 
1 THENIB ELSE IA 


Par contre, les opérations de chaînage 
devront avoir été précédées d'un rebas- 
culement sur le lecteur 1, à travers une 
instruction IA, puisque les programmes 
seront dans ce lecteur. 


T:REM On simule le MENU 
INFUT'"'Votre choix * 
276 ON C GOSUE 1966,2000,71000,4000, 


rat 


1060 
999 GOTO 16: REM Bouclage sur MENU 


>> 


1969 CLS: FRINT'SIMULATION SOUS-FROG 
RAMME 1666":FOR Teil TO 1666:NEXT T 
1999 RETURN 

29% CLS:FRINT'SIMULATION SOUS-FROG 


RAMME 260606!":FOR Tsi TO 196G:NEXT T 

2999 RETURN 

5666 CLS: FRINT'SIMULATION SOUS-FRKOG 
RAMME 3666!":FOR T=i TO 1666:NEXT T 

3999 RETURN 

496% CLS: FRINT"'SIMULATION SOUS-FKOG 
RAMME 4566":FOR T=1i TO 1906:NEXT T 

4999 KETURN 

68999 CLS:FRINT'SIMULATION SOUS-FROG 
RAMME 6666 ":FOR T=il TO 166G:NEXT T 

6999 RETURN 

7696 CLS:FRINT'SIMULATION SOUS-FKOG 
RAMME 7666":FOR T=i TO 19GG6:NEXT T 

7999 RETURN 

96% CLS: FRINT"'SIMULATION SOUS-FROG 
RAMME 9666":FOR Tæ=i TO 1GGG:NEXT T 

9999 RETURN 

15666 CLS: FRINT'SIMULATION SOUS-FRO 
GRAMME 137666": FOR T=l TO 1566:NEXT 

T 

13999 RETURN 

619% CHAIN'"FROGZ@ 


LISTING 2 


1 REM FROG € 

S IF FD=% THEN SOUND 1i,26:CLS:FRINT 
“Fas d'acces direct a PFROGE,'":FRINT 
"je vous renvois sur FRKOG1...":RUN" 
FROGI 

19 REM Sequence d'affichage MENU 
commun 

15 CLS:FRINT "Choix de 1 a 13":PKRIN 
T:REM On simule le MENU 

296 INFUT'"'Votre choix 7 "s;C 

2:56 ON C GOSUB 6820060,620006,:1900, 400 
H,5000,6000,62000,B006,90066, 10000, 1 
19006, 126006, 62906 

999 GOTO 16: REM Bouclage sur MENU 
FROGE 

36066 CLS: FRINT'SIMULATION SOUS-FROG 
RANME 2666": FOR T=i TO 1966: NEXT T 
3999 RETURN 

4969 CLS: FRINT'SIMULATION SOUS-FKOG 
RAMME 4666":FOR T=i TO 166G:NEXT T 
4999 RETURN 

5906. CLS: FRINT'SIMULATION SOUS-FKOG 
RAMME 56606": FOR T=i TO 1966: NEXT T 
3999 RETURN 

86% CLS: FRINT'SIMULATION SOUS-FKOG 
RAMME 6660": FOR T=1i TO 16O66:NEXT T 
6999 RETURN 

7666 CHAIN "FROGI 

8966 CLS: FRINT'SIMULATION SOUS-FKROG 


RAMME 866%6":FOR T=i TO 16OGG:NEXT T 
9966 CLS:PRINT'SIMULATION SOUS-FROG 
RAMME 9%66":FOR T=i TO 166G:NEXT T 
9999 RETURN 

19966 CLS: FRINT'SIMULATION SOUS-FRO 
GRAMME 196606":FOR T=1 TO 1966:NEXT 
T 


19999 RETURN 


11900 CLS:FRINT'SIMULATION SOUS-FRO 
GRAMME 11900":FOR T=1 TO 1966:NEXT 
ms 

11999 RETURN 

126698 CLS:PRINT"SIMULATION SOUS-FRO 
GRAMME 12906":FOR T=1 TO 1966:NEXT 
+ 

12999 RETURN 

62669 CHAIN"FROG1@ 


LISTING 3 
635466 
65616 
65826 
6576 
65946 
re) 

65956 
65525 


REM Saisie de caractere 

FRINT "Votre choix:" 
CH=INEEVS:IF c$é="" THEN 65626 
c=ASC(c#) 

IF c:96 THEN ei 6596 


IF c£96 THEN c=c-64 
RETURNQ 


LISTING 4 

19 CLS 

24 FKRINT''a-Creer un objet" 

56 FRINT'b-Completer un objet" 

4% FRINT'c-Charger un objet" 

59 FRINT'd-Stocker un objet" 

69 FRINT''e-Gestion de blocs 
d'objets" 

76 FRINT'f-Gestion du.catalogue". 
89 PRINT'"'g-Manipuler un objet ou un 
bloc" 

9% FRINT'h-Fusions diverses" 

199 FRINT'i-Amputations" 

119 FRINT'"'j-Fichier objets 
standards" 

FRINT'"'E-Voir" 


126 

136 FRINT'"I1-Creer une image" 

14% FRINT'm-Flan trois vues" 

159 FRINT'n-'": ‘option laissee libre 
164 FRINT'o-'":-‘option laissee libre 
17% FRINT'p-Changer de drive" 

189 FRINT'"'q-Quitter" 

199 FRINT 

266 GOSUER 656966: Saisie du choix 


216 IF C :17 OK C6 THEN 16 
226 IF C=17 THEN END: Seule sortie 
possible 
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TRUCS ET ASTUCES 


RECHERCHE DE CHAINE 

Commençons par une petite routine très 

simple, que nous communique André 

EGINARD de CASTANET-TOLOSAN, qui 

vous permettra de rechercher une chaîne 

alphanumérique dans un programme. 

Il faut, bien sûr, que le fichier soit de type 

ASCII, sauvegardez-le en conséquence, 

puis lancez ce court programme : 

10 OPENIN ‘NOM 

20 WHILE NOT EOF 

30 LINE INPUT #9,A$ 

40 IF O< >INSTR(AS$,'‘xxxxx'’) THEN 
PRINT A$ 

50 WEND 

70 CLOSEIN 

où xxxxx représente la chaîne recher- 

chée. Veillez à entrer la chaîne sous sa 

forme première ; si elle est mémorisée en 

majuscules, il faudra l'entrer de la même 

manière. 


DATA OÙ SYSTEME ? 

Il'est intéressant de savoir rapidement de 
quelle facon a été formatée une dis- 
quette, les disquettes SYSTEME n'ayant 
pas le même usage que les disquettes 
DATA. 

Voici le TRUC de M. DEVULDER de St- 
DENIS qui consiste à tester l'adresse 
&BE54 par PRINT PEEK (&BE54). 

Si la réponse est 2, le format est 
SYSTEME ou VENDOR. Cette adresse 
est valable sur 6128. 


CAPS LOCK 

Nous avions, pour faire suite à la 
demande d'un lecteur, lancé un appel 
pour résoudre le problème d'absence de 
voyant de CAPS LOCK. Il s'agissait de 
trouver une solution MATERIELLE 
(serions-nous des pousse-au-crime ?) et 
non logicielle puisqu'un article faisait état 
d'une telle solution dans un précédent 
numéro de CPC. Saluons tout de même 
deux lecteurs, qui se reconnaîtront, qui 
proposaient, le premier, de faire cligno- 
ter le curseur en mode minuscule, et de 
le rendre fixe en mode inverse, le second 
de modifier la couleur de BORDER selon 
que. |l y avait donc de l'astuce, aucune 
des deux solutions ne mobilisant de ligne 
d'écran. 


FD 502 

C'est le joli nom du lecteur 5’ 1/4 que 
Christophe PAVEN adaptait (CPC 11) 
pour le 464 + DDI 1. Quelques lecteurs 
ayant rencontré des problèmes, Christo- 
phe PAVEN nous envoie une modifica- 
tion à apporter à la carte (p. 61) pour la 
génération du signal READY. Signalons 
que de la qualité de l'alimentation dépen- 
dra l'efficacité de l'adaptation et il est 
préférable d'obtenir le 5 et le 12 v de 
façon séparée. Les secondaires du 
transfo devront donner 9 et 18 v et des 
condensateurs de 6800 mf seront pré- 
férés. Les possesseurs de 664 et de 
6128 risquent de se trouver confrontés 
à un problème de temps d'accès plus 


court (8 ms) que pour les 464 (12 ms). 
Revenons à la modification. Dans le pre- 
mier montage, le signal INDEX était pris 
pour piloter la carte. Cela avait pour con- 
séquence, quand le lecteur A était chargé 
et le lecteur B vide, de générer tout de 
même le signal READY, le câble trans- 
mettant alors les impulsions INDEX du 
lecteur À. Il s'agit maintenant de récu- 
pérer le signal INDEX (sans barre) sur la 
cosse se situant à 2 cm sur la gauche du 
connecteur d'alimentation (vue arrière). 
Ce signal sera appliqué sur l'entrée A du 
monostable 1. L'entrée B sera alors lais- 
sée ‘en l'air’. Deux pistes sont égale- 
ment à couper et une liaison à établir 
(voir figure). 


(245ms) 


SELECT '1î 


Modification : 


HEXA-TERRESTRE 

La base 16, quand on l’aborde, semble 
venue d'ailleurs en nous faisant perdre 
nos repères décimaux tellement prati- 
ques et rassurants. Quelques TRUCS 
peuvent nous remettre les pieds sur terre 
en utilisant les nombres hexadécimaux 
pseudo-décimaux, c'est-à-dire &10, 
&100, &2000. 

Ainsi, les valeurs hexadécimales entre 
&10 et &90, avec un pas de &10, livre- 
ront leur valeur décimale si on les multi- 
plie par 1.6, ce qui peut être obtenu faci- 
lement par calcul mental en dehors des 
lendemains de fête. 

Certaines valeurs, qui ne sont pourtant 
pas des multiples de 10, nous sont très 
familières telles 64, 128, 256, 512 et 


P3 


777 liaison à supprimer 
= liaison à établir 


Figure 10 : le circuit côté cuivre (échelle 1,5) 
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1024 (un drôle de kilo !}. Ce sont tou- 
tes des valeurs hexadécimales pseudo- 
décimales ! 64 = &40, 128 = &80, 
256 = &100, 512 = &200 et 1024 = 
&400. Vous aurez noté qu'à partir de 
&100 le multiplicateur n'est plus 1.6 
mais 2.56 ce qui rend le calcul mental 
un peu plus lourd. 

Voyons maintenant les rapports entre 
hexadécimal et code ASCII et cherchons 
des repères. 

Les valeurs de la table ASCII &10 et &20 
ne sont pas significatives, bien que la 
première efface un caractère en le rem- 
plaçant par la couleur de fond et que la 
seconde soit le caractère espace qui 
n'apparaît, comme chacun sait, que 
comme couleur de fond ! La valeur &30, 
en revanche, est beaucoup plus parlante 
puisqu'elle correspond au zéro. Et, puis- 
que les chiffres se suivent en ordre crois- 
sant, il vous sera aisé de calculer que le 
code ASCII du chiffre 9 en hexadécimal 
est &39, alors que sa valeur décimale est 
57, ce qui ne dit rien à personne | 
Continuons avec les lettres de l'alphabet. 
Là, le repère est légèrement décalé. Le 
code ASCII &40 ne correspond pas à la 
lettre ‘‘A'’ mais à l’arobas encore appelé 
‘’A'' rond ou ‘’A'' commercial. Ce carac- 
tère &40 précède directement le ‘’A". 
C'est toujours bon à savoir comme il est 
bon de savoir que &50 est la valeur de 
P. Ces repères permettent de calculer les 
valeurs des autres lettres en l'absence de 
table. Là où nous nous rendons compte 
des astuces de conception des codes 
ASCII, c'est quand nous constatons que 
le code &60, précède directement le ‘’a”” 
de la même façon que &40 préc était 
directement le ‘’A'’', et que c'est bien 
‘’p'' qui est codé &70. Nous n'oublions 
pas, bien sûr, que la seule base accep- 
tée par le processeur est la base 2, ce 
qui nous permet l'observation suivante. 


La lettre ‘A’ e<t rodée 01000001 en 
binaire, tandis que la lettre ‘‘a’” est codée 
01100001. Ce qui veut dire, de manière 
pratique, que c'est le bit 6 de l’octet qui 


détermine qu'une lettre est majuscule 


(bit 6 à O), ou minuscule (bit 6 à 1). 
Comme dirait l’autre : ‘‘’les informati- 
ciens, c'est des malins !”. 


BOGUES (ENCORE DES) 

La récolte des châtaignes sera précoce, 
cette année si l'on en croit deux lecteurs. 
Essayez, pour voir, PRINT INT(0.01)* 
100! Si vous êtes scandalisés, ne jetez 
pas votre CPC tout de suite, entrez 
d'abord : 

10 FOR 1=6 TO 8 STEP 0.1 

20 PRINT |; 

30 NEXT | 

la machine a ses vapeurs à partir de 7.8. 
Encore une ? Entrez : 

PRINT 1280.84 * 100 - 128084 

Si vous aviez mis 83, ou 85, le résultat 
aurait été juste. Et le lecteur qui nous 
envoie ces découvertes nous dit : ‘’A la 
prochaine !””. Encore un qui a foi en son 
matériel ! 


Pierre TACONNET 


CRE 


COMPILATION DES NUMEROS 1-2-3-4 


Bon de commande page 


E. GfA.I. SAME 


55-57, rue du Tondu 33000 Bordeaux. Tél : 56.96.35.23 Poste 3 


Logiciel d'accès direct et de gestion du disque: 

Compatible 464, 664, 6128. 

CARACTERISTIQUES : 6 nouvelles commandes pour vous permettre de réaliser l'accès direct avec votre 
ordinateur AMSTRAD (lecteur A, lecteur B ou 5" 1/4). 

M nd contient également des utilitaires pour mieux gérer votre disquette. 

- Editeur de secteur 

- Formateur OUVEAU 
- Augmentation de la vitesse 

- Et toutes les fonctions que vous nous avez demandé. 

Disque uniquement 370 F + 25 F de frais de port. 


DIGITALISEUR 


Avec votre caméra vidéo en toute source video digitalisez 
l'image que vous avez choisie. Fabrique par Electric Studio, 
c'est un gage de qualité. 

Possibilité de tirer la photo sur votre imprimante, de la mo- 
difier et de la sauvegarder sur disquette à volonté. 


Prix de lancement 1400,00 FTTC + 25,00 F frais de port 


LE SCANNER 


Digitalisez votre photo préférée, rentrez-la dans votre ordi- 
nateur, travaillez-la ou 'modifiez-la si vous le souhaitez. 
Sauvegardez-la sur votre disquette et tirez-en une copie 
format A3 avec votre imprimante (ne fonctionne qu'avec 
la DMP 2009). 


Prix 890,00 FTTC + 25,00 F frais de port. 


IMPRESSION TAPE LEADER 


Programme votre imprimante avec beaucoup de 
facilité. Programme votre traitement de texte. Plus 
de 65 commandes RSX pour programmer votre 
imprimante. Recopie d'écran en différentes tailles 
et différentes couleurs. 

Sélection du mode et des fenêtres à recoupier. 
Sélection de tous les caractères ACSII et 8° bit. 
Fonctionne sur les imprimantes compatibles 
EPSON et DMP 2000. 


Sauvegarde de bandes à bandes jusqu'à 45 Ko msur 
464 ou 6128. 

Affichage permanent des renseignements concernant 
le logiciel en duplication, ainsi que l'espace 
disponible en mémoire. 

Sauvegarde sous différentes formes avec 10 vitesses 
paramétrables. 


AMSTRAD CPC AMSTRAD PCW 


K7 Disc \ 
Translock 165 205 Souris + Interface d 
Hercule 250 Stylo optique 830 
Psychotest 100 135 Tasword 8000 505 
Méphisto 175 : 205 Tasprint 8000 250 — 
Access II 370 | Discmate — : ——— 
Impression 200 240 BON DE COMMANDE 
Tape leader 175 a EP TEE EEE 
Multiface IT 600 OS :S NOM PRENOM 
Stylo optique 412 : AMME® n ADRESSE 
Taswor D 128 e pROGR n ESSEN | LOGICIEL(S) COMMANDEIS) 
Tasword D Mail Merge 420 Les NTES É JUS | 
Tasprint 205 | 250 NOUS , CTEZL N 
Masterfile 460 : CONT À 
Mastercalc 


Agenda LE CATALOGUE DE NOS SOFTS EST 


DISPONIBLE CHEZ VOTRE REVENDEUR 
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BANC D'ESSAI 


TASWORD 6128 
DEUXIEME JEU 
DE CARACTERES 


Sémaphore logiciels 


Les ordinateurs Amstrad CPC sont équipés d’une sortie imprimante 
à sept bits permettant seulement l’adressage des caractères ASCII 


dont les codes sont inférieurs à 128. Afin 
capacités de TASWORD en fonction d’une lacune 


as ‘’brider’” les 
u matériel, nous 


avons prévu qu'il soit possible d'adresser tous les caractères dispo- 
nibles sur les imprimantes et une partie de ceux-ci figurent sur le 
‘’deuxième jeu’’ du programme. Ceci nous a valu un abondant cour- 
rier d'utilisateurs déçus de ne pouvoir imprimer par exemple l’al- 
phabet grec ou certains symboles pourtant présents dans leur impri- 


mante et visibles sur TASWORD. 


Les seules solutions directes, l'adjonction 
d'une interface ‘‘8 bit'’ ou une interven- 
tion à cœur ouvert sur le CPC n'étant pas 
à la portée de tous, nous vous proposons 
une solution logicielle qui fonctionne 
avec toutes les imprimantes ayant un 
‘’pseudo'’ mode 8 bit. En fait, l'on ajoute 
128 à chaque bit envoyé, avant son 
impression (pour l’Amstrad DMP 2000, 
voir chap. 6 p. 2 du manuel). 

Par exemple, si votre imprimante pos- 
sède le caractère (œ) (alpha) dont le code 
est (x), vous devrez, pour l'imprimer 
depuis le BASIC, utiliser la syntaxe sui- 
vante : 


PRINT #8, CHR$(27);CHR$(x-128); 
CHRS$(27); 
CHR$(61); 


Le programme BASIC suivant sauvera 
sur disquette un petit bloc de CODE qui 
exécutera la même opération chaque fois 
qu'il rencontrera un caractère au-dessus 
de 128. 

Si votre imprimante utilise d'autres codes 
que 27 62 (ESC et =) pour enclencher 
le huitième bit, ou 27 61 (ESC et >) pour 
l'annuler, vous devrez éditer les lignes 80 
et 90 et y insérer les codes trouvés dans 
le manuel de votre machine. Les lignes 
80 et 90 commencent par le compte du 
nombre de bits à envoyer puis la 
séquence. NOTEZ que le nombre de 
“DATA” dans les lignes 80 et 90 doit 
TOUJOURS être égal à sept. 
Effectuez une remise à zéro de votre 
CPC, placez une copie de travail de Tas- 
word 6128 (pas votre original !} dans le 
lecteur puis tapez le programme suivant : 


5 MEMORY &9D1A 
10 FOR i=0 TO 86 


20 READ A 

30 POKE &9D1B +i,A 

40 NEXT i 

50 SAVE ‘’TW2ME'',B,&9D1B,87 
60 STOP 


70 DATA 24, 14 

79 REM dire à l'imprimante d'envoyer 
le 8e bit 

80 DATA 2, 27, 62, 0, 0, 0,0 
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89 REM dire à l'imprimante de revenir 
à l'état normal 
90 DATA 2, 27, 61, O0, O, O, O 

100 DATA 33, 43, 189, 17, 66, 157, 
1, 3, 0, 237, 176, 62, 195, 50, 
43, 189 

110 DATA 33, 70, 157, 34, 44, 189, 
201, 0, O, O0, 201, 254, 128, 56, 
248, 214 

120 DATA 128, 197, 229, 245, 23, 29, 
157, 205, 103, 157, 241, 79, 
121, 205, 66, 157 

130 DATA 48, 250, 33, 36, 157, 205, 
103, 157, 225, 193, 55, 201, 70, 
35, 126, 205 

140 DATA 66, 157, 48, 250, 16, 247, 
201 

Maintenant (si vous ne désirez pas édi- 

ter les lignes 80 et 90), tapez RUN. Au 

signal "READY" tapez RUN ‘‘tasword”' 

(ou semword) comme d'habitude et une 

fois le programme chargé, passez au 

menu principal, puis au BASIC pour enfin 

taper : 

LOAD ‘’TW2ME.BIN:CALL &91DB 


Vous pouvez créer une copie personna- 
lisée de TASWORD qui installera auto- 
matiquement TW2ME.BIN. Chargez la 
routine sans le CALL, ajoutez la com- 
mande suivante à la fin de la ligne 150 
du BASIC de TASWORD : 


:LOAD ‘’TW2ME.BIN''":CALL &9D1B et 
à la ligne 170 insérez la commande 


:SAVE ‘‘’TW2ME.BIN'’,b,&9D1B,87 
avant le :GOTO 160 


Revenez au menu principal (RUN) et 
choisissez l'option de sauvegarde de 
TASWORD pour sauver la version de 
TASWORD que vous venez de configu- 
rer. Traditionnellement, Sémaphore ne 
protège pas ses programmes pour per- 
mettre justement ce type de manipula- 
tion et assurer aux utilisateurs une mise 
à jour constante de leur programme. 
Nous espérons que vous appréciez cette 
marque de confiance et n’en abuserez 
pas, notre gagne-pain en dépend. 


Ê 


A LA VITRINE DU 


MAÉ 
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LA BIBLE DU GRAPHISME 
AMSTRAD PC 

MICRO APPLICATION 
199 Francs 


Dans l'emploi d'un micro-ordinateur, ce 
qui attire le plus l'utilisateur est incontes- 
tablement ses capacités à gérer les ima- 
ges. Cette gestion de l'écran, malgré son 
attrait, est pour beaucoup un point 
d'achoppement, notamment sur CPC 
dont l'organisation graphique est, pour 
nombre d'utilisateurs, un véritable casse- 
tête. 

La BIBLE DU GRAPHISME est un gros 
livre de plus de 500 pages qui regroupe 
tout ce que l'on peut attendre d'un tel 
ouvrage. De l'affichage d'un point à l'uti- 
lisation des GSX en passant par le jeu de 
caractères, les graphiques d'entreprises, 
la représentation des fonctions mathé- 
matiques le graphisme en trois dimen- 
sions, les périphériques et la programma- 
tion en langage machine sans oublier les 
couleurs (l'utilisation des PEN, INK etc. 
est fort bien explicitée), tout est clair et 
simple, les auteurs ne sont pas avares de 
détails ni de programmes. On retrouve 
ces derniers sur disquette (est-elle livrée 
avec le livre ?). Signalons que les princi- 
pales routines graphiques de la ROM 
sont développées. 

Un ouvrage indispensable à qui désire 
exploiter à fond le potentiel graphique 
des CPC. 


TRUCS ET ASTUCES 
PC 1512 
MICRO APPLICATION 


Des trucs, il y en a, des astuces aussi, 
mais cet ouvrage est surtout un manuel 
complémentaire du manuel d'origine. 
La première partie concerne le DOS et y 
sont développés la personnalisation du 
DOS (batch, autoexec), l'organisation du 
clavier et certaines commandes. La 
deuxième partie concerne GEM, son ins- 
tallation et les sorties graphiques sur péri- 
phériques (imprimantes). La dernière par- 
tie est dédiée au BASIC2, outils de déve- 
loppement (références croisées), gestion 
du menu et de la souris, graphique 
camembert et trois dimensions. 

Un ouvrage bien rédigé et clair qui per- 
met de mettre le pied à l'étrier. 


Stéphane VALLOIS 


dans un entrepôt gardé par des sentinelles. Vous êtes déguisé 

de facon à passer inaperçu. Mais si vous touchez un garde, 
celui-ci vous démasque et vous perdez une vie. Attention, vous 
n'avez droit qu'à cinq erreurs ! 


D ure mission que celle d'aujourd'hui : récolter 51 pièces d’or 


fuit LL TS 1 | 


MODE DEMOMNMSTRATTIOrI— 


= 


FORTUNE LE Fr-s= 


Oxyda est un jeu entièrement écrit en LAQD ‘0m one one one one on me one 00 ne eme on on oo me 
assembleur ce qui lui procure une rapi- 1010 ‘xx FROGRAMME + O.X.Y.D.A. Pre 
dité inégalable. la partie se joue en 4 do 
tableaux de difficulté croissante. Il est eu 

possible d'utiliser le clavier ou le joystick 1050 ‘ 

pour le déplacement du personnage. 1040 COPYRIGHT 1987 


1050 ‘=== REALISE FAR STEPHANE VALLOIS,. 


De l’action, de la couleur, et de la musi- 
que que demander de plus ? 

Le mode d'emploi et inclus dans le 
programme. 

N.B. : ce jeu ayant été réalisé sur 464, 
l'affichage des scores sur 464 et 6128 
présente quelques anomalies, mais cela 
ne gêne en rien la bonne marche du 
programme. 


107@ MODE 2:MEMORY 35000: a=35290: 1=1080: 
z=267: RESTORE: FOR i=41200 TO 42000:POKE 
i ,@:NEXT 

1080 t=0:FOR i=Q TO 20:READ a#:FOKE a,VA 
L'("Sl+at) : tet+VAL('Rl+at)rama+liNEXT il 
=L+10:READ a$:1F t<>VAL("&"+a#) THEN PRI 
NT CHR#(7) "ERREUR en ligne"l:END:ELSE IF 
a“41000 THEN z=2-1:LOCATE 1,1: PRINT "IN 
ITIALISATION - Temps restant :"2:GOT0 10 
80 


>606060606 
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1090 DATA 3E,05,32,04,8F,4F,22,05,8F,32, 
C4,8F,32,59,90,21,B4,96,11,8C,91,07B6 
1100 DATA 01,14,00,ED,R0,21,64,96,11,08, 
AG,01,50,00,ED,B0,21,C8,96,11,E8,07EC 


1110 DATA 99,01,20,07,ED,R0,21,08,A0,11, 


09,90,01,50,00,ED ,BO,21, 40,9C,22,06DA 
1120 DATA 54,90,AF,CD,0E,EC,2E,15,22,85, 
H2,CD,7F,91,DD,21,40,9C,CD,17,8F,0A16 
1150 DATA 3E,01,22,0%,8F,AF,32,FF,8E,22, 
00.8F,32,FE,8E,CD,F1,8E,CD,E0,8E,0A77 
1140 DATA CD,EG,91,01,08,00,11,70,00,DD, 
21,08,9D,CD,E0,91,01,28,00,11,00,06Ez 
1150 DATA @G,DD,21,08,9D,CD,E0,91,@1,24, 
0G,11,70@,00,DD,71,08,9D,CD,E0,91,0868 
1160 DATA 01,24,00,11,20,00,DD,21,08,9D, 
CD,E0,91,CD,A6,80,3A,05,8F,FE,00,0802 
1170 DATA C4,81,95,3%0,59,90,FE,12,20,EE, 
21,08,A0,11,09,90,01,50,00,ED,E0,087C 
1180 DATA AF,CD,0E,BC,21,80,94,22,5A,90, 
2E,00,22,FE,8E,3E,15,32,85,87,CD,0942 


1190 DATA 7F,91,DD,21,80,9A,CD,17,8F,3E, | 


G1,22,05,8F,AF,22,FF,8E,32,00,8F,08FD 
1200 DATA 21,%1,90,11,09,90,01,14,00,ED, 
HO,CD,F1,8E,CD,E0,8E,CD,E0,91,01,@A04 
1210 DATA 14,00,11,70,00,DD,71,0&%.9D,CD, 
E0,91,01,10,00,11,00,00,DD,21,08,059E 
1220 DATA 9D,CD,E0,91,01,3C,00,11,40,00, 
DD,21,08,9D,CD,E0,91,01,%4,00,11,@790 
1250 DATA 50,00,DD,21,06,9D, CD,E0,91,CD, 
A6,8C,5,05,6F, FE,00,C4,8F .95,2A,0A1E 
1240 DATA 59,90,FE,21,20,EE,21,08,00,11, 
09,90,01,50,00,ED,B0,4F,CD,QE,BC,@8BD 
1250 DATA 21,E8, 99,22,54,90,3E,01,32,FE, 
SE,GE, 15,:2,85,B2,CD, 7F,91,DD,21,0942 
1260 DATA E8,99,CD,17,8F,3E,01,22,05,6F, 
%E,04,22,FF,8E,AF,32,00,8F,21,45,07CE 
1270 DATA 90,11,09,90,01,14,00,ED,R0,CD, 
F1,8E,CD,E0,8E,CD,E0,91,01,20,00,09D2 
1780 DATA 11,00,00,DD,71,08,9D,CD,E0,91, 
G1,20,00,11,20,00,DD,71,08,9D,CD,06R4 
1290 DATA EU,91,01,14,00,11,40,00,DD,21, 
08,9D,CD,E0,91,01,00,00,11,80,00,2644 
1200 DATA DD,21,08,9D,CD,E0,91,CD,A6,8C, 
34,05,8F,FE.00,C4,48B,95,34,59,90,@AD3 
1310 DATA FE,2R,20,EE,21,08,40,11,09,90, 
G1,50,00.ED,B0,4F,CD,0E,EC,21,78,0877 
1320 DATA 9B,22,5A,90,3E,06,27,FE,8E,3E, 
15,22,85,B2,CD,7F,91,DD,21,78,98,0953 
1330 DATA CD,17 BF ,SE, 1,22,0%, BF ,3E, 18, 
32,FF,8E,AF, 32,00, 8F,21,1D,90,11,@6DA 
1240 DATA 09,90,01,14,00,ED,B0,CD,F1,8E, 
CD,E0,8E,CD,E0,91,01,14,00,11,70,0956 
1350 DATA 00,DD,71,08,9D,CD,E0,91,01,24, 
0G,11,20,00,DD,21,08,9D,CD,E0,91,0818 
160 DATA D1,%C,00,11,20,00,DD,21,08,9D, 
CD.,E0,91,01,44,00,11,80,00,DD,21,0623 
1570 DATA 08,9D,CD,E0,91,CD,46,8C,3A,05, 
8F,FE,00,C4,9D,95,24,59,90,FE,33,0AF8 
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1380 DATA 20,EE,C09,48,4R,4A,4F,%A,FE,BE, 
CD,0F,8F,7E.FE,4C,20,3C,3%E,5A,77,0967 
1390 DATA CD,F1,8E,DD,21,C6,9F,CD,E0,91, 
21,48,8F,CD,AA,BC,DD,21,59,90,DD,@D%E 
1400 DATA %4,00,DD,21,94,91,DD,7E,01,FE, 
39,20,0A,%E,3%0,0D,77,01,DD,%4,00,Q7EE 
1410 DATA 18,0%,DD,2%4,01,2E,15,76,0E,72, 
85,R?,CD,B6,91,3%A,FE,8E,C6,14,CD,087E 
1420 DATA GF,8F,7E,FE,5A,28,0B,FE,40,78, 
07,FE,4B,28,03,C3,0A,8D,%E,04,C3,07FS 
1450 DATA Ci,8D,%A,A2,8C,CD,1E,BB,CA,3A, 
8D,5:4,00,8F,FE,00,CA,3A,8D,3A,FE,@A7D 
1440 DATA 8E,D6,14,CD,0F,68F,7E,FE,4B,26, 
OD,FE,5A,28,09,FE,40C,26,05,FE,47,0924 
1450 DATA C?,%A,8D,3E,0%,C3,C1,8D,%A,A%, 
8C,CD,1E,BB,CA,7B,8D,3%A,FF,GE,FE,@RG1 


1460 DATA 4C,CA,7E,8D,3A,FE,G8E,%C,CD,0F, 
8F,7E,FE .45,28,24,FE,46,28,2 TA, Q9SE 


1470 DATA 02,8F,FE,01,28,14,CD,F1,8E,DD, 
|21,88,9D,CD,É0,91,CD,F1,8E,DD,21,0EC4 
1480 DATA G8,9D,CD,E0,91,3%E,01,C%,C1,8D, 
|3A,A4,8C,CD,1E,BRB,CA,BE,8D,%A,FF,@E91 
11490 DATA 8E,FE,00,CA,BE,8D,24,FE,8E, D, 
CD,0F,8F,7E,FE,45,CA,BE,8D,FE,46,@C79 
1500 DATA CA,BRE,8D,3%A,0%,68F,FE,02,76,14, 
CD,F1,8E,DD,21,08,90,CD,E0,91,CD,0E17 
1510 DATA F1i,8E,DD,21,88,9D,CD,E0,91,3%E, 
G2,C3,C1,8D,CD,5C,90,FE,01,CA,40,GEF3 
1520 DATA 8E,FE,02,CA,90,8E,FE,0%,CA,09, 
8E ,FE,04,CA,D8,8D,C%,06,8F,06,08,@A6F 
1520 DATA CS,CD,F1,8E,CD,E0,68E,CD,19,ED, 
ICD,E0,91,%A,00,8F,2C,2C,22,00,8F,0B2F 
1540 DATA CD,F1,8E,CD,E0,8E,CD,E0,91,CD, 
9C,90,C1,10,DC,3A,FE,8E,Cé, 1 .32,@D% D 
1550 DATA FE,8E,C3,D5,8D,271,9F,8F,CD,AA, 
BC ,06,08,C5,CD,F1,6E ,CD,É0,GE , CD, GD5A 
1560 DATA 19,ERD,CD,E0,91,2A,00,8F,%D,%D, 
:2,00,8F,CD,F1,8E,CD,E0,8E,CD,E0,0B4C 
1570 DATA 91,CD,9C,90,C1,10,DC,%A,FE,G8E, 
D6,14,22,FE,8E,C3,D5,8D,06,04,C5,0E99 
1580 DATA CD,F1,8E,DD,21,08,9D,CD,19,ED, 
CD,E0,91,CD,F1,8E,DD,21,48,9D,CD,@CCC 
1590 DATA EQG,91,CD,9C,90,CD,F1,8E,DD,21, 
48,9D,CD,19,BD,CD,E0,91,34,FF,8E,@D41 
1600 DATA 3C,32,FF,68E,CD,F1,8E,DD,21,08, 
9D,CD,E0,91,C0D,90,90,C1,10,C1,2%4,@BED 
1610 DATA FE,8E,2C,22,FE,8E,%E,01,22,07, 
8F,C3,D5,8D,06,04,C5,CD,F1,8E,DD,@AA6G 
1620 DATA 21,88,9D,CD,19,BD,CD,E0,91,CD, 
Fi,8E,DD,21,C8,9D,CD,E0,91,CD,9C,@D7D 
1620 DATA 90,CD,F1,8E,DD,21,C8,9D,CD,19, 
BD,CD,EG 91,34, FF, BE, 2D,3? FF, BE, QCEZ 
1640 DATA CD,F1, 8E,DD,21, 88,9, CD,E0,91, 
CD,9C,90,01,10,C1,%A,FE GE, 3D,32,0C6D 
1650 DATA FE,8E,3E,07,32,0%,8F,C3,D5,8D, 
3A,03,8F,FE,01,20,05,DD,21,08,9D,0848 
1660 DATA C9,DD,21,88,9D,09,%A,FF,8E,06, 


00,4F,34,00,8F,16,00,5F,C9,01,04,@7DD 


280 DATA 4B,54,54,54,5A,5A,47,5A,47,5A, 
54,47,54,54,4B,54,45,5A,54,54,46,06E2 


2840 DATA 48,48,48,468,468,40,40,48,48,48, 
489,48,48,40,54,45,5A,5A,5A,46,49,067A 
2850 DATA 49,49,49,49,49,49,49,49,49,49, 
49,49,46,54,45,45,5A,5A,46,46,46,061C 
2860 DATA 46,46,46,46,46,46,46,46,46,46, 
46,46,54,45,45,45,5A,5A,5A,5A,5A,06%% 
2670 DATA 5A,5A,54,54,5A,50,46,5A,4C,5A, 
5A,54,45,45,45,5A,SA,5A,50,50,5A,0701 
2880 DATA 5A,54,54,54,54,46,47,46,5A,46, 
46,45,45,45,45,40,5A,5SA,5A,5A,5A,069D 
2890 DATA 5A,54,54,5A,5A,47,54,5A,5A,5A, |: 
26146,46,46,46,46, 46,46 146,46, re 


SA, 54, 48,54, SA, SA, AC, SA, SA, SA, 54, D682 
2910 DATA 40,5A,40,4C,5A,5A,5A,4C,4R,5A, 
54,48,46,46,47,46,47,46,46,46,46,065A 
2920 DATA 4C,46,46,46,47,46,46,4B,5A,5A, 


4B,4C,5A,47,50,47,5A,4C,54,5A,5A,067D 
290 DATA 54,54,5A,47,40,50,4B,SA,5A,48, 
46,46,46,47, 46,46,46,5A,° SA,47,47,067% 
2940 DATA 47,46,46,46,5A, 4Ë,5A, AC, 48,5, 
SA,5A,47 ,46,5A, 5, A, SA, 5 , SA, 47 ,@6AD 
2950 DATA SA , 5,54 ,54,46,46,46,46, 40,4 
4C,47,46,50,40,46,46,54,5A,45,5A,0676 
3960 DATA SA,5A,54,5A,5A,5A,5À,47,47,47, 


47,5A,54,46,5A,50,40,45,45,45,5A,06R5 
2970 DATA 54,54,40,5A,5A,50,54,47,5A,5A,l% 
SA,5A,5A,40,47,47,47,47,47,47,5A,06C1 
2980 DATA 4C,46,46,46,46,48,48,48,48,48, 
49,48,40,46,46,46,46,46,46,46,46,05%D4 
2090 DATA 46,46,46,46,49,49,49,49,49,49, 
49,49,46,46,46,46,46,46,46,46,54,0SEA 
2000 DATA SA,54,50,48,54,54,5A,504,5A,5A, 
S4,4B,54,50,54,50,5A,50,5A,5A,46,07%0 
010 DATA 46,5A,48,54,46,46,47,46,46,5A, 
4B,54,54,54,50,5A,50,5A,5A,5A,5A,06CD 
5020 DATA 5A,48,54,50,5A,47,54,5A,5A,4R, 
SA,5A,54,50,54,54,5A,5A,54,5A,5A,0731 
FOOD DATA 46,46,46,5A,46,47,46,46,46,5A, 
S4,5A,54,50,54,50,5A,9A,50,5A,46,06AF 
#040 DATA SA,5A,54,46,47,46,5A,5A,5A,5A, 
54,54,54,50,5A,54,54,54,54,46,46,06FF 


2050 DATA 46,46,46,47,46,5A,5A,5A,50,5A, 1% 


SA,54,54,54,54,54,5A,54,5A,54,5A,06FF 
5060 DATA 54,46,47,46,5A,5A,5A,5A,50,5A, 
SA,5A,54,5A,50,5A,5A,5A,5A,5A,5A,0727 
2070 DATA 54,47,5A,54,5A,5A,54,5A,5A,5A, 
TEE 473 SA 3 47, 45,SA 47,45, Q6EC 


SA, 45,4 5,4: 5.45.45.45,48,45 45.45, 0683 
*090 DATA 45,45,45,45,45,45,45,45,45,45, 
STE PROTC PEe LS PEUT PRO TS PESTE PESTE PEUT PESTE PESTE PESTE PES" 
“100 DATA SA, SA, 54 ,4B,5A,54,54,54,4B,46, 
46,54, A,47,46,46,50,47,47,5A,5A,06GEE 
“110 DATA SA, SASAR, SA, SA, SA, SA,48,45,S5A, 


200 DATA 


5A,54,47,45,5A,5A,5A,5A,5A,5A,5A,0707 


H120 DATA 54,46,46,47,46,46,46,45, SA, SA, 


54,47,45,5A,50,50,54,54,54,54,5A,0GAE 
#130 DATA 5SA,54,47,54,54,46,45,5A,54,5A, 


147,45,5A,5A,5A,47,46,46,46,5A,5A,06AF 


3140 DATA SA,47,SA,SA,SA,45,SA,SA,SA,47, 


145,54,54,54,47,46,5A,5A,5A,5A,47,06D8 


#150 DATA 47,47,47,47,45,50,54,50,47,45, 
SA,5A,50,47,46,54,46,46,46,47,5A,006% 
#160 DATA S4,54,54,45,54,54,5A,47,54,5A, 
54,54,47,46,54,54,54,54,47,5A,5A,0700 
#170 DATA 47,54,46,48,48,48,48,48,48,48, 
48,48,46,46,48,48,48,48,40,40,48,05F% 
5180 DATA 46,46,49,49,49,49,49,49,49,49, 
49,46,46,49,49,49,49,49,49,49,46,0SEE 
“190 DATA SA,5A,54,54,48,5,54,50,50,5A, 
154,50, 4C,SA,5A,4C,40,40,4B,5A,5A,@70C 
SA,50,54,48,54,47,5A,5A,5A,54, 
54,4C,54,4C,47,47,47,4B,54,54,5A,@6DC 
#210 DATA SA,5A,48,54,5A,54,5A,5A,47,5A, 
47,54,50,47,50,54,4B,54,45,54,54,06F6 
#220 DATA 54,46,48,48,48, 48,48 ,48,48,48, 


149,48,46,468, 48 146,94, 45,5A,54,54, 6 LB 
[52 0 DATA 46,49, 49,49,49,49,49,49,49,49, 


49,49,49,49,46,5A, 45,45,5A,5A, 46,061F 


, 3240 DATA 46,46,46,46,46,46,46,46,46,46, 


46,46,46,46,50,45,45,48,SA,54,5A4,060E 

2250 DATA DA A 5 DA y A y A y A à SO op IA y 465 9 SA y 

4C, SA, SA SA 45,45,45,5SA,SA,SA,58,0701 
260 DATA SA,5A,S5A,5A,90,58,5,46,47,46, 


|SA, 46,46,45,45,45,45,40,50,5A,5A, O6 %D 


+270 DATA SA,5A,5A, 50,54, 54,54 ,47,5A,54, 
5A,5A,46,46,46,46,46,46,46,46,46,069E 
2280 DATA 46,46,46,46,46,46,46,46,46,46, 
46,4B,5A,50,48,5A,5A,54,5A,54,5A,0668 
2200 DATA 54,54,54,54,50,50,54,5A,5A,5A, 
4B,5A,5A,48,46,46,47,46,47,46,46,B6BA 
4300 DATA 46,46,50,46,46,46,47,46,46,4E, 
SA,5A,48,54,50,47,5A,47,54,54,54,067F 
2310 DATA 54,54,54,54,54,47,5A,54,4B,54, 
54,48,46,46,46,47,46,46,46,54,54,0646 
5220 DATA 47,47,47,46,46,46,50,4,5A,50, 
4B,5A,54,50,47,46,5A,54,5A,5A,5A,06A8 
2% DATA SA,47,54,504,54,50,46,46,46,46, 
SA, SA ,5A, 47, 46: SA SA; 4e 146: SA 1 SA, 26R0 


47,47 on a 46,5 ,5À,54, 45,45,06C5 
2350 DATA 5 4 A à A 4 A 9 OA 9 DÉS 9 IN 5 A 9 9 9 47 y 
DA DA DA 3 00 3 003 A3 47,47,47,47,47,06DE 
360 DATA 47,5A,54,46,46,46,46,468,48,48, 
48,468,48,468,48,46,46,46,46,46,46,05F7 
HE70 DATA 46,46,46,46,46,46,49,49,49,49, 
49,49,49,49,46,46,46,46,46,46,46,05D6 
3590 DATA 46,44,00,00,00,CC,CC,868,00,0C, 
C9,00,00,0C,C5,82,00,41,C05,00,00,08%0 
“À 30 DATA 44,868,00,00, Fa CC,55,00, FO,rFS, 
FO, 00, 28,00, QCE9 


BA,FA,FO, FEx Aa, FF, 


F F, 
x400 DATA CC,00,00,F0,F0,00,00,44,88,00, 
00,44,88,00,00,55,A4,00,00,55,FF,0697 


a 


#250 DATA 08,00,11,70,00,DD,%1,08,9D,CD,| 2540 DATA 1C,80,10,70,10,50,1C,40,74,50, 
E0,91,01,°8,00,11,00,00,DD,%1,08,05AA 24,40 ,26,60,28, 70,78,00,2C,50,7C,053€ 
3260 DATA 9D,CD,E0,91,01,24,00,11,70,00,| 2560 DATA 40,74,80,%4,70,%4,60,%4,50,%4, 
DD,21,08,9D,CD,E0,91,01,24,00,11,0798 40, :0,00,:0,40,2%0,70,20,60,20,50,0628 
2270 DATA 20,00 “DD,21,08,9D, CD,F0, 91,21, 2560 DATA 44,80,44,70,44,60,44,50,48,60, 
n6,01,E5,CD,19,HD, CD,9C, S0.,É1,2E,0068 | 48,40,40,80,40C,70,40,60,40,50,FF,@70F 
O DATA 7D,F4,20,F AE, 22, C4, 8F,4F,CD, 2570 DATA FF,00,01,08,70,04,10,01,70,00, 
HC,21,H0,9,22,54, "oB,SE , 0Q, 52,095 10,20,01,24,70,70,2C,0@1 ,24,20,14,0337 
2200 DATA FÉ,GE,%E, 15 .:2,85,E2,CD, C3,91, 2580 DATA 26 .81,14,20,14,20,01,74,70,74, 
DD,21,E0,9A, CD,17, à ,01,22,03, 0998 :8,01,44,80,44,40, 01,20, 20, 20,44 ,0764 
2300 DATA BF,AE , 32 FF,8E, :2,00,68F,21, 2500 DATA 21,20, 40, 3C,40,01,10,00,10,24, 
90,11,09,90,01,14, G,ED,E0, 01,14, O711 ‘'let,1a, 70,14,%0,01, 4,50,34,2C, 21, Q2F9 
910 DATA 00,11,70,00,DD,71,08,9D,CD,EU, 2600 DATA 14,40, 14, Ce, ai .20,20,20,2 C0, 
91,01,10,00,11,00,00,DD,%1,08,9D,0627 20,80 ,00,10 ,21,20, 00,70,28,É4, A, ee 
2##9 DATA CD,E0,91,01,%C,00,11,40,00,DD, 61 20,2D,20,46,4F,52,54,55,4E, 
#1,08,9D,CD,Ë0,91,01,%4,00,11,50,0747  |45,20,%0,: 46,72,72 SA, SA, SA, 059 
Ma DATA 0,DD,71 a DATA DRE 4C,SA,5A,50,50,50,48, 
oo 19, ED, CD,9C,90,Ë1,2E,7D,@ACS ,,54,54,50,50,50,54,54,46,46,5A,070E 
ms F5 ne. ,C4,8F,AF,CD,@E,| 2630 DATA 48,54, non 46,46,5A,48,5A, 
BC 21, E8 199 22) SA,90,3E,01,32,FE, BASE , SA, SA, SA, SA, SA, SA 3 SA» SA SA ; 48,060 
MtSQ DATA 8E,3%E,15,57,05,8%,CD,03,91,DD, :,5A,47,54,5A,5A, AB, SA , 5, 
#1,E8,99,CD, 17, 8e SE De D, US, BF, 0960 | SA SA, SA,5,5,50,50,50,54, 46,46,070A 
#60 DATA GE, 04,29,FF,0E,AF,30,00,87,21, 2650 DATA 46,54,46,47,46,46,46,5A,50,5%A, 
5,,00,11,09, 90, oi, ‘14,00,ËD, QG ,01,46C4 | SA,SA,5A,5A,5A, SA ,5A,54,46 , SA ,5A, G6D7 
##70 DATA 20,00,11,00, 2@, DD,21,08,9D CD, 2668 DATA 4C,46,47,46,5A,5A,5A,SA, SA, 5, 
.91,01,20,00,11,-0,00,DD,21, QE, G56A SA,5A,54,50,54,50,50,46,46,46,46,06C9 
2260 DATA 9D,CD,EU,91,01,14,00,11,40,00,| 2670 DATA 46,47,46,50,50,54,5A,54,50,5A, 
DD,21,08,9D,CD,E0,91,01,00,00,11,07:4 SA,SA,SA,50,5A,54,50,5A,54,50,46,0713 
G DATA 80,00,DD,21,08,9D,CD,E0,91,21, 2680 DATA 47,46,50,54,50,54,50,54,5A,5A, 
,ES ee, HD,CD,9C,90,E1,26H,@0AC8 SA ,SA,SA,4C,5A,40,5A,5A,4C,5A,47,06FE 
120, 29,04, 8F,AF,CD, 690 DATA 54, AC, SA, SA, 5,50 ,54,5A,54,5A, 
LE, BC, 21, 78, JE, : G 26,27 ,0974 5A,54,47,54,47,45,40,47,45,45,45,06E9 
2410 DATA FE,8 ,15,52,85,R2,CD,05,91,l2700 DATA 47,40, SA, SA, 5À,5A, 54,54 ,4C,45, 
DD,®1,76,0R, CD ,17, BF ,SE, 0 5,0961 ,45,45,45,45,45,45,45,45,45,45,0627 
D4S0 DATA BE ,%E,18,22,FF,8E,A +2,00,8F,/2710 DATA 45,45,45,45,45,45,45,45,5,50, 
21,1D, 90,11,09, de @1,14,00,ED, BQ,07%E 
" 452 DATA U1,14,00,11, 20,00, DD,21,08,9D, 2720 DATA 5A,4B,40,54,54,40,4B,46,46,4€, 
CD, EU,91,01,74, Le 11,20,00,DD,21,057E ,47,46,46,40,47,47,54,54,%A,54,068: 
M448 DATA 0B,9D,CD,E0,91,01,20,00,11,20,|% “0 DATA 4B,40,5A,40,40,4B,45,50,5,5A, 
0@,DD,71,08,9D,CD,E0,91,01,44,00,0777 47 ,45,5A,5A, SA, SA, SA, SA, SA, 50) 46,069 
2460 DATA 11,80,00,DD,71,068,9D,CD,E0,91, 2740 DATA 46,47,46,46,46,45,54,40,5A,47, 
F1,88,01,Ë5,CD,19,BD,CD,90,90,E1,WAAE ,5A,54,54,54,50,40,54,50,5A,5A,06n6 
A6B DATA 2,7D,H4,20,F5,C9,4F,%2,05,6F, A DATA 47,54,50,46,45,5A,50,5A,47,45, 
C1,2A,04,8F,FE,00,C2,6E,8A,C9,0F,GA6GE 54,54,54,47,46,46,46,5A,5A,5A,47,069C 
:9,05,8F,01,%4,04,8F,FE,00,02, 2760 DATA 54,54,54,45,54,4C,4C,47,45,5A, 
2,84,09,0F,22,05,0F,C1,3%4,04,8F,095A SA,5A,47,46,5A,5A,50,54,47,47,47,06A9 
QG DATA FE dE 2770 DATA 47,47,45,5A,5,50,47,45,50,5A, 
C1,%A,04,8F,FE,00,0%,7F,08,09,AF,@A6GA 54,47,46,54,46,46,46,47,50,5A,4C,067E 
3490 DATA. CD, DE ,EC 121 De Cu 2 FL. FF,C6,12780 DATA 54,45,5A,50,50,47,5A,5A,50,54, 
D6,00,4F,25, JE,22,04,96,11,00,00, 0769 147,46,5A,40,4C,4C,47,5A,5A,47,5A,06C3 
2600 DATA CD,F6,95,CD,09 ,BE,D8,1%,131%3| 2700 DATA 46,48,48,48,48,48,48,48,48,48, 
24 ,04,96,88,26,1%,18,1B,1B,1E,074% \46,46,48,48,48,468,48,48,48,46,46,@SDE 
210 DATA CD,19,BD,CD,F6,95,1%,1%,15%,1%, 2800 DATA 49,49,49,49,49,49,49,49,49,46, 
CD,F6,95,18,È%,2%,18, CA, DD,21,48,09ES 146,49,49,49,49,49,49,49,46,5A,54,0616 
2520 DATA 9,05 ,D5,ES, CD, EQ ,91,E1,D1,0t,|2810 DATA 5A,54,48,50,54,50,54,50,5A,5A, 
C9, 00.00,70.00,60,00,50,04,00,04 ,GA3F aC,SA,5A,4C,40C,4C,48,5A,54,50,5A,070C 
MS DATA 40,08,00,08,40,00,70,00,60,00, 2820 DATA 5A,4B,54,47,54,54,50,54,54,4C, 
50,14,80,14,70,14,50,14,40,18,60,@49C 54,40,47,47,47,4B,54,50,50,54,5A,06DC 


é 


QE, 


RATS PRO T2 PEUT PESTE PESTE EST PEUT PRO TE TE ET 727 ST 


42 


1670 DATA 00,00,00,01,05,00,3A,A5,8C,CD, 
1E,BB,C8,C1,C9,24,54,90,06,00,4F,@6D2 
1680 DATA 09,09,21,00,C0,06,0A,C5,06,14, 
ES,DD,E5,C5,E5,21,08,9D,01,40,00,@7FA 
1690 DATA 1E,41,DD,7E,00,BB,28,04,09,1C, 
18,F9,E5,DD,E1,E1,CD,E3,91,C1,DD,0B3A 
1700 DATA El,E1,23,23,23,23,DD,23,10,D6, 
C1,11,50,00,19,10,CC,C9,3A,C3,6F,08A0 
1710 DATA 3C,E6,07,32,C3,8F,FE,00,C0,5A, 
C4,8F,06,00,4F,21,C5,8F,09,7E,FE,0947 
1720 DATA FF,28,2D,FE,00,28,21,26,00,6F, 
32,BD,8F,AF,32,BE,8F,E5,21,BA,8F,092E 
1750 DATA CD,AA,BC,E1,29,7D,32,84,8F,7C, 
22,85,8F,21,B1,68F,CD,4A,BC,DD,21,0BB3 
1740 DATA C4,8F,DD,34,00,C9,4F,232,C4,68F, 
18,RE,8%,01,01,00,02,00,0F,0F,20,@6DC 
1750 DATA 8%,01,01,C8,00,00,0F,0F,00,81, 
02,07,00,00,00,0F,1E,00,82,02,02,0243 
1760 DATA 00,00,00,0F,1E,00,00,00,50,00, 
50,59,5F,59,50,00,47,00,5F,00,00,@2D4 
1770 DATA 00,59,00,59,5F,6A,00,77,00,9F, 
00,00,00,8E,00,77,8E,7F,00,64,00,250@D 
1780 DATA 8E,00,77,00,6A,00,00,00,8E,00, 
77,8E,7F,00,64,00,77,00,00,00,00,2462 
1790 DATA 00,00,00,00,00,00,00,00,00,20, 
00 ,FF,FF,01,08,70,04,1C,01,28,00,02C0 
1800 DATA 10,2C,01,24,70,20,2C,01,24,20, 
14,28,01,14,20,14,20,01,24,70,24,0270 
1810 DATA 38,01,44,80,44,40C,01,3C,20,2C, 
44,01,2%C,40,%C,4C,01,10,00,10,24,03E4 
1820 DATA G1,14,70,14,20,01,34,50,34,3C, 
G1,14,40,14,1C,01,20,20,20,2C,01,@7C1 
1850 DATA 00,80,00,10,01,20,00,20,28,00, 
8,W8,CD,9C, 98,CD,19,BD,C9,DD,ES,2720 
1840 DATA El,E5,DD,7É,00,FE,01,28,1A,FE, 
02,28,10,FE, 02,28 ,06, DD,21,C8,9D,092C 
1850 DATA 18,10,DD,21,48,9D, 18,0A,DD,21, 
88,9D,18,04,DD,21,068,9D, 06,00 ,16,0678 
1860 DATA 00,23,7È,4F,22,7E,SF,CD,E0,91, 
DD,E1,C9,CD,51,8F,DD,21,09,90,CD,@AC6 
1870 DATA BC,90,DD,21,13,90,CD,BC,90,DD, 
21,0E,90,CD,EC,90,DD,21,18,90,CD,0B27E 
1880 DATA EC,90,C9,CD,4E,91,CD,6%,90,DD, 
7E,00,FE,01,28,0A,FE,02,28,1D,FE,0A50 
1890 DATA 0%,28,%0,18,64,DD,34,00,DD,%4, 
00,06,00,DD,4E,01,16,00,DD,5E,02,057E 
1900 DATA DD,21,48,9D,C3,E0,91,DD,34,00, 
DD,:4,00,06,00,DD,4E,01,16,00,DD,0BSE | 
1910 DATA S5E,02,DD,21,C8,9D,C3,E0,91,DD, 
:4,01,DD,7E,04,DD,BE,01,28,17,DD,2A70 
1920 DATA 35,00,DD,35,00,06,00,DD,4E,01, 
16,00,DD,5E,02,DD,21,08,9D,C3%,E0,0712 
19%0 DATA 91,DD,25,00,06,00,DD,4E,01,16, 
00,DD,5E,02,DD,21,88,9D,C2%,E0,91,087F 
1940 DATA DD,25,01,DD,7E,03%,DD,BE,01,28, 
B6,DD,:5,00,03,25,91,DD,35,00,C%,2899 
1950 DATA OQC,91,34,00,8F,DD,BE,02,C0,3A, 
FF,8E,47,DD, 7E,01,06,0%,90,FE,07,098B 


154,55,4E,45,20,:0,:0,20,46,72, 


OXYDA. 


1960 DATA C8,E6,F8,FE,00,C0,3A,05,8F,FE, 
00,C0,F6,FF,32,05,8F,34,04,8F,3D,0ARS 
1970 DATA 22,04,8F,C6,30,22,8E,91,C9,21, 
8c,91,7E,FE,00,C8,CD,54,BB,23,18,0974 
1980 DATA F6,56,4F,54,52,45,20,46,4F,52, 
3,0694 
1990 DATA 00,2D,4D,4F,44,45,20,44,45,4D, 
4F,4E,5%,54,52,41,54,49,4F,4E,2D,0586 
2000 DATA 00,21,9A,91,7E,CD,5A,RB,23,7E, 
CD,SA,BB,C9,21,41,91,18,B4,62,6B,@9EA 
2010 DATA 11,14,92,29,19,5E,23,56,62,6E, 
09,C9,7C,Cé6,08,D0,11,50,C8,19,7C,0747 
2020 DATA C9,CD,C8,91,06,10,C5,E5,DD,7E, 
0G,4E,A9,77,2%,DD,2%,DD,7E,00,4E,@A44 
2050 DATA A9,77,23%,DD,23,DD,7E,00,4E,A9, 


177,23,DD,2%,DD,7E,00,4E,9,77,23,091B 


3040 DATA DD,2%,E1, CD, Dé, 91,67,01,10,D?, 


1C9,00,C0,00,C8,00,D0, 20, DB, ae, EO, QAFE 


2050 DATA 00,E8,00,F0,00,F8,50,C0,50,C8, 
50,D0,50,D8,50,E0,50,E8,50,F0,50,0B:8 
2060 DATA F8,A0,C0,A0,C8,40,D0,A0,D8,A0, 
E0,A0,E8,A0,F0,A0,F8,F0,C0,F0,C8, 1040 
2070 DATA FO,D0,F0,D8,F0,E0,F0,E8,F0,FO, 
FO,F8,40,C1,40,C9,40,D1,40,D9,40,@F6C 
2080 DATA Ei,40,E9,40,F1,40,F9,90,C1i,90, 
C9,90,D1,90,D9,90,E1,90,E9,90,F1,0E53 
2090 DATA 90,F9,E0,C1,E0,C9,E0,D1,E0,D9, 


E0,E1,E0,E9,E0,F1,E0,F9,20,C2,30,1093 


2100 DATA CA,30,D2,%0,DA,20,E2,20,EA,30, 
F2,5:0,FA,80,C2,80,C4,80,D2,80,DA,0C86 
2110 DATA 80,E2,80,EA,80,F2,80,FA,D0,C2?, 


'DG,CA,D0,D2,D0,DA,D0,E2,D0,EA,D0,106C 


2120 DATA F?,D0,FA,20,C3,70,CB,20,D%,20, 
DB,20,E5,20,EB,20,F3,20,FB,70,C3,0BE7 
2120 DATA 70,CR,70,D%,70,D6,70,E3,70,ER, 
70,F3,70,FE,C0,C3,C0,CB,C0,D3,C0,0EA6 
2140 DATA DE, CO,E<,C0, ER,CO,F3,C0,FB,10, 
C4,10,CC,10, D4,10,DC,10, E4, 10, EC, GD@7 
2150 DATA 10, F4, 10, FC, 60, C4, 6, CC, 6@,D4, 
60 ,DC,60,E4,00,EC,60,F4,60,FC,B0,@CCO 
2160 DATA C4,B0,CC,E0,D4,R0,DC,H0,E4,B0, 


|EC,B0,F4,B0,FC,00,C5,00,CD,00,D5,@E37 


2170 DATA 00,DD,00,E5,00,ED,00,F5,00,FD, 
50,C5,50,CD,50,D5,50,DD,50,E5,50,@AAA 
2180 DATA ED,50,F5,50,FD,40,C5,A0,CD,A0, 
D5,AG,DD,A0,ES,A0,ED,A0,F5,A0,FD,@F87 
2190 DATA FO,CS,F0,CD,F0,D5,F0,DD,FQ,ES, 
FO,ED,FO,FS,F0,FD,40,C6,40,CE,40,1@DC 
2200 DATA D6,40,DE,40,E6,40,EE,40,F6,40, 
FE,90,C6,90,CE,90,D6,90,DE,90,E6,@DBA 
2210 DATA 90,EE,90,F6,90,FE,EU,C6,E0,CE, 
E0,D6,E0,DE,E0,E6,E0,EE,E0,F6,E0,1144 
2220 DATA FE,30,C7,20,CF,%0,D7,20,DF,30, 
E7,20,EF,20,F7,20,FF,80,C7,80,CF,0C2C 
22#0 DATA 80,D7,680, DF,80,E7, 80,EF,80,F7, 
80,FF,AF,32,C4, BF ,21,40 .9C,22,54, QC2F 
2240 DATA 90,AF,CD,0E,BC,2E,15,32,85,B2, 
CD,C3,91,DD,21,40,9C,CD,17,8F,01,@Aû1 
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“410 DATA V0,0n,00,C0C,88,00,44,CC,CC,00,| :700 DATA 00,00,04,269,00,00,04,26,00,00, 
44,C0C,82,00,44,09,C3,00,00,0:,82,07D7 04,269,00,00,20,20C,00,04,2C,20,28,01060 
“490 DATA 0A,00,0C,00,00,50,E4,88,AÀ,50,) 43710 DATA M4,26,04,268,04,20,04,26,04,26, 
FO,FF,FF,55,F0,F5,FF,55,FA,00,00,0E98 04,20,00,00,00,00,00,00,00,00,00,0106 
“450 DATA 50,CC,868,00,44,F0,E4,00,44,00,)437%0D DATA 0D,00,00,00,00,00,00,00, 1,4, 
CC,00,FF,88,FF,00,FF,AA,FF,AA,S5,0ECS 00,00,7H,8RF,00,15,H7,7F,2A, 15,87, @ 
5 «440 DATA A ,55,AÀ, Ca, EQ, CC, 86, DD,44,C00,, 4730 DA TA JE, À, TELSF SF EF, 7H, 
CC, 40, ma,Ca,CC,@0,4t .C5,CC, 00,20, 08: Ë | 7H EP EF, | 78,3, F BF STE R7, JF, DBD4 
“450 DATA C5,82,00, 20, 44,08, 04, AA, CC,FO, 4740 DAT A BA, 15 R7, JE se A ; a ÿ 7È : BF, aw,00, 
SPF SEA ,F0,55,F F FO, FS5,00, 20, FO, GBDE i5,20,00,00,00,00,00,00,00,00,00,0718 
4 60 DATA FF  a0.00,CC,CC,00,00,F0,F0,00,. E750 DATA 00,00,00,00,00,00,00,00,00,0@0, 
UD,44,6868,00,00,44,80,00,00,55,AA,07@E 100,00,00,00,20,02,00,00,00,00,00,@m@0 
“470 DATA 00,00,FF,A8,00,44,00,00,00,CC, 760 DATA 00,00,00,00,00,00,00,00,00,00, 
CC,66, am,41 CC ,88, 20, CE, C6, 88, Ca, 0B7F an,uw,0u,Ra,00,00,00,00.00,00,00,0000 
480 DATA 4 i ,Cr,00, LO, pa,CC 20, 55,44, De, 770 INF @,0:RORDER QsINE LAS INE ST 
AU,FF FF, FO, AO ,FF, FA, FO, AA, 00,50, QE NE 4, Se INE GS ,IGBsINE GS INE 7,268 INE € 
490 Da TA F 5, AA, A0, 44, CC, AQ, A,DE,F0,88, 4: INE 9,1Lé:INE 10,145 INK LL,ISSINE 1x 
Q%s CC, CC,600,00,FF, 4 4, FF : SE , F F4 ë SU QEAA SINE LE, LS: INE 14,24: INF. LS LÉrENV &, 15, 
1500 DAT A FF, Fe PET 3 He, AA,20,50,20,3%0,04, L,ISENT 1,7,-40,1,7,0,1 
EC UC,06,10,29,50,20,14, LE si .16,20,04RF 2780 MODE Q:PFOEÉE Ze DiPFOEE SET ,0:F0 
3310 DATA a4, ec , OC, 70, 10, 9,20,20,00,0%, KE 4e. € ! 
Se 20,04,0C, ec ,20,10,29, _ : 2 00,0% AE 3790 LOCATE 
ra] DATA DZ,5?, 20, DA, AC,OC,20, 10,79, E9, che, Mais CAL 
00,0, a 0 : @4, ac AC, 20 ,10,29,027C 800 MODE 1 
30 DATA x F 50,0, <0, FO,OF,SE,FC, A6, 3608 PRINT "PRESSEZ C1T,CZ71 OÙ LS: 
FC FC,AG,FC,FC,FC,AG, 20,00 ,00,09 
HS4Q DATA O0, FC, TS) OF .SE, FD, AB,SE, FC,FC,| 3810 PRINT "LIT, ss ssumunuue tie art D 
Ag,FC,rFC, 00, 20, 20 00 QF,SE,FC,AG,08HC EMONSTKATION" 
F6%0 DATA mé FC ,F AB, FC, FC, FC, A8, 00,00, 2820 FRINT "CRT... SR ST JOUER 
0U,00,FC,AE,0 : "PE AG dE LCL QUAS AU JOYSTICE" 
660 DATA A8,FC,FC,00,00,00,00,CF,8A,CF, 3930 FARINT "LS, nr Mr eme ut à de ae JOUE 
CF, CF, CF "© F “20, 00,00, 20, GO, 0@, GBD= F AU CLAVIER" 
+570 DATA O0, La, DA, ea, 20, @, 2@, Da, 00,00, 3840 FRINT " TOUCHES 
ou,00,an,0u, Ca, 08, 0, 00, 2a, 00, 00, EUTY #5 COIeSAUTER" 
+500 DATA 0,00 ,00,00,00,00,00,00,00,00, 3950 FKRINT " 
Aa 00, 2, 20, 20, 2e, aa, 20, 20, 20, 0Q,0020 COJEGAUCHE" 
00 , QF,GE, 3960 FRINT " 
2 CFJeDROTTE" 
3870 FKRINT " C 
DEL. = ES {SHANDON" 
5 HOG0 AfSINÉEVES IF at<s"!UTMEN SOUND #,:00 
15 195 13 
É800 IF afæ"i" THEN FOR ixQ TO 7993:FOKRE 
“26 LH9400+i,FEER C58600+i):NEXT i:FOK iQ TO 
aie 20 ,30,30, 30,7 CC, 793POHE 56873+i ,FEEE C59S00+i):NEXT 15 CAL 
En et ED QAEC IL 57796: AREA 3780 
D, EC, AC AC, EC, EC, 4900 IF afis"2" AND a#fs:"i5" GOTO S660 
AC, FC, 20, 30, Q4EC 3910 IF atmnor THEN FOKE <6002 , 72: POKE nu 
EC, AC EC CC, 20 40,20, 6005,7S:FORE S6004,74 
79 120 9 27 20, 70, bi, os 2F 2920 IF atz"E" TMEN FOKHE 34600%,67:FOKRE 
600 DA TA nn 374,68, 70, 8, Gi GE ,6%, 6005,27:FOFE 26004 ,74 
20,56,61,6C,60,6F,69,7:,00, 0, 00, BéC4 5970 CALL 35:90 
“670 DATA 00,00,00,00,01,00,00,00,00,00, DER CHO9SE) el GOTO :970 
nn,00,00,0,00,00,00.,08,00,00,00,@001 2950 LOCATE S,223:FRINT "9": 
“680 DATA 00,00,00,00,00,00,00,00,00,00, 960 LOCATE 6,1:FRINT "GAME OVER! : FOR ji 
00,04,26,04,25,04,268,04,28,04,28,00DC (ml TQ SOOG:NEXT: GOTQ 3780 
5690 DATA 04,28,04,20,20,268,00,2C,20,00,1#97Q LOCATE 1,22:FRINT " VOUS AVEZ GAGN 
00,04,26,00,00,04,28,00,00, 04,28,018C Ex Mas FOR il TO 4000: NEXT:GOTO 57800 
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CONNAISSEZ-VOUS 
"LA SOLUTION" ? 


Pierre TACONNET 


n classeur, une disquette. Telle se présente LA SOLUTION qui 
regroupe la trilogie, désormais classique, traitement de texte 
ÉXTOMAT), tableur (CALCUMAT), gestionnaire de fichiers 


T 
DATAMATI. 


Mais ne fait pas une bonne trilogie qui 
veut | Ici, Micro Application a choisi la 
facilité en faisant du neuf à partir du 
vieux | TEXTOMAT, DATAMAT et CAL- 
CUMAT sont des logiciels déjà anciens. 
En les regroupant, il aurait fallu chercher 
à résoudre les problèmes (connus) qui en 
limitent les performances (surtout pour 
DATAMAT). Avec ‘’LA SOLUTION”, on 
a l'impression d'avoir affaire à une pâle 
compilation, comme il en existe dans le 
domaine des jeux. 

La notice, elle-même, est un exemple de 
ce qu'il ne faut pas faire. L'utilisateur 
attend, à juste titre, de son manuel, une 
aide efficace à l'apprentissage que, sou- 
vent, a fortiori s'il est novice, il appré- 
hende. Disons tout de suite que les rap- 
ports qu'aura le néophyte avec son 
manuel seront placés sous le signe de la 
guerre froide (pour les plus calmes) ! 
Le manuel idéal doit assurer la formation 
de l'utilisateur à travers un exemple con- 
cret et suivi utilisant toutes les potentia- 
lités du programme et regroupant, dans 
un dernier chapitre, les diverses com- 
mandes. La demande est raisonnable. 
Que les éditeurs fassent un effort ! 
Mais ‘’LA SOLUTION’, nous allons le 
voir, n'a pas que des mauvais aspects, 
loin s'en faut. 


TEXTOMAT 


A la mise en route, une fois entrés les 
modifications des couleurs de l'écran et 
le choix du jeu de caractères et des para- 
mètres de l'imprimante, TEXTOMAT 
affiche un écran couvert de points 
dédoublés. L'effet n'est pas du meilleur 
goût. En haut sont affichés le mode 
(texte ou commande), et les coordon- 
nées ligne/colonnes du curseur. En bas, 
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quatre menus ouvrent sur les comman- 
des d'édition, de présentation et de sor- 
tie. Une commande ‘utilitaire’ para- 
chève le tout. Notons l'absence physi- 
que de tabulateurs. 

L'accès aux différents menus est obtenu, 
en mode commande, par appui sur la 
barre d'espace ou les curseurs et les 
sélections par ENTER. Les manipulations 
dans le texte s'effectuent à l’aide des 
touches CONTROL et SHIFT en associa- 
tion avec une lettre. L'’obtention des 
caractères accentués français permettra 
à l'utilisateur d'exercer sa dextérité. Les 
caractères à tréma s'afficheront après 
appui sur trois touches. En revanche, la 
mémorisation ne posera pas de problè- 
mes ; la logique préside à leur emploi. 


Comme il existe, en assembleur, un pro- 
gramme source et un programme objet, 
TEXTOMAT propose de travailler sur un 
texte brut de forme que l’on visualisera, 
après coup, dans sa version prête à l’im- 
pression, formatée. Notons que le ‘’texte 
source’’, affublé de ses tabulations, de 
ses codes de contrôle et de ses points 
dédoublés rend toute tentative de lec- 
ture, et c'est une litote, incommode. 
Notons également qu'un message d'er- 
reuf faisant injonction de frapper la tou- 
che ENTER nous est apparu, lors d’un 
formatage, dans la langue des auteurs 
qui est aussi celle de Goethe ! 
TEXTOMAT offre les fonctionnalités 
d'usage adaptées à son coût modeste : 
insertion, manipulation de blocs, justifi- 
cation, recherche et remplacement d’un 
mot, gestion d'en-tête et de pied de 
page, numérotation, impression de circu- 
laires avec fichier d'adresses (en liaison 
avec DATAMAT où autonome), et 
même, pour certaines imprimantes, 
espacements proportionnels. 
TEXTOMAT pèche donc plus par ses 
défauts esthétiques que par ses perfor- 


mances tout à fait honorables dans sa 
classe. 


DATAMAT 


Après l'installation d'usage qui concerne 
le clavier, l'écran et l'imprimante, DATA- 
MAT affiche son menu dans lequel l’uti- 
lisateur circulera à l’aide de la barre d'es- 
pace ou des touches fléchées, la sélec- 
tion s’effectuant par ENTER. Six options 
sont au menu. Création de fichier, trai- 
tement des données, tri du fichier, 
exploitation du fichier, sortie du pro- 
gramme et programme de service. 
L'option création de fichier affiche un 
écran vide, le curseur se trouvant en haut 
à gauche. Cinquante plages réunissant 
512 caractères sont acceptées, la 
recherche n'utilisera qu'un seul index. La 
confection du masque de saisie est faci- 
litée par un éditeur bien conçu et une 
sauvegarde permet son réemploi. La 
recherche par l'index est relativement 
rapide. L'utilisation d’un joker, rempla- 
çant un ou plusieurs caractères, rendant 
plus aisée la recherche, est possible et, 
en combinaison avec l'index, accélèrera 
les opérations, la recherche s'effectuant 
alors d'abord sur l'index ce qui permet 
de dégrossir la sélection. 

Vient ensuite l'option TRI qui fera s’ar- 
racher les cheveux à bon nombre d'utili- 
sateurs. En effet, il n'existe aucune con- 
cordance entre les explications du 
manuel et le programme. Certains mes- 
sages attendus se voient remplacés par 
d'autres. On attend une question sur 
l'existence d'un fichier pointeur, c'est 
une question sur la lecture des paramè- 
tres qui apparaît ! Au cours d’une opé- 
ration, le curseur, qui devait être présent, 
brille par son absence ! Plus loin, dans 
l'option impression (la nôtre n'est pas 


est indispensable dans la détermination 
du format de liste ; pas de curseur ! 

Il ressort qu'en dehors de l'élaboration et 
de la recherche des fiches, DATAMAT 
devient vite une épreuve de laquelle seuls 
les utilisateurs les plus placides (ou les 
plus fatalistes), sortiront indemnes. 


CALCUMAT 


D'‘entrée de jeu, CALCUMAT affiche son 
tableau qui tranche avec les programmes 
précédents par une esthétique soignée 
qui n'a rien à envier aux tableurs profes- 
sionnels dont le prix est un obstacle 
rédhibitoire. L'accès aux options s'effec- 
tue par menus déroulants sélectionnés 
par la barre d'espace ou CTRL associé 
à l'initiale, ce qui est plus rapide. 
CALCUMAT est très riche en fonctions 
de tous ordres. Tous les classiques y ont 
droit de cité et la fonction GRAPHES per- 
met le traitement et l'affichage simultané 
de quatre types : camembert, barres, 
barres avec cumul et lignes. Le tout avec 
motifs différenciés. De la belle ouvrage ! 
Naturellement, le calcul dans les cellules 
est possible par références absolues mais 
aussi replatives. L'argument peut faire 
appel à un ensemble de cellules. Vingt- 
six fonctions arithmétiques et les quatre 
opérateurs logiques sont présents. En 
prime on peut y utiliser des outils de 
bureau ; une calculatrice et un calepin 
seront vite adoptés. Ce dernier comprend 
un presse-papier permettant le stockage 
temporaire d'informations avant impres- 
sion ou insertion dans la grille de calcul. 
Rien n'est oublié ! Pas même la fonction 
couper/copier/coller, ni le tri, alphanumé- 
rique et numérique ; et dans les deux 
sens. Les nombres sont, au choix, à déci- 
males ou entiers, les unités peuvent y 
être ajoutées et leur représentation peut 
même s'exécuter, à l'intérieur de la grille, 
par barres. Les calculs s'effectuent à 
volonté ou automatiquement. 
CALCUMAT est un tableur de bon 
niveau, extrêmement convivial, qui, par 
ses potentialités, devrait plaire aux utili- 
sateurs exigeants. 


CONCLUSION 


Livré sur une disquette numérotée et pro- 
tégée contre la copie, le logiciel pourra 
vous être échangé, en cas d'accident, 
moyennant 100 F (pratique contes- 
table ?). 

LA SOLUTION offre un exemple hétéro- 
gène dans l'esthétique, la fonctionnalité 
et la convivialité des trois programmes 
qui la composent : un traitement de tex- 
tes sans surprise et néanmoins correct, 
une gestion de fichiers au fonctionne- 
ment déroutant, inexpliqué voire inexpli- 
cable, et un tableur de bonne qualité. 
Si le logiciel était servi par un manuel plus 
exploitable, les 950 F demandés pour 
l'ensemble auraient pu passer pour un 
prix raisonnable, susceptible de faire 
oublier certaines lacunes. 


bonne du tout), la présence du curseur 


M. Mme : 
Adresse : 


minitelistes.. 


Heureux possesseurs d'AMSTRAD, 
vous pouvez maintenant utiliser le 
réseau téléphonique pour com- 

muniquer avec vos alter égo, AMS- 
ST  lRADISTES eux-aussi, ceci via votre 
az Minitel. 


Pour 700 F TTC le logiciel SÉRIE.2 vous connectera sur 
le réseau téléphonique commuté pour transmettre 
fichiers, programmes, dessins, etc. 

Vous pourrez aussi économiser vos coûts de consulta- 
tion en enregistrant, imprimant et archivant sur votre 
micro, toutes les informations accessibles par minitel 
(chiffrez déjà ce que vous allez gagner sur vos banques 
de données favorites !). 


Et si cela ne suffit pas à vous convaincre, sachez que 
grâce à SERIE.2 vous pourrez aussi utiliser le clavier de 
votre micro à la place du clavier minitel, transformer 
toutes suites d'écrans VIDÉOTEX en fichier ASCII, impri- 
mer des étiquettes adresses à partir de l'annuaire élec- 
tronique... 


Le logiciel SÉRIE.2 est maintenant agréé par la fnac 
En ajoutant que vous ne trou- Le me 11 
verez pas moins cher ailleurs, | 
vous serez certainement [l AA 
CONQUIS.. | anna 


DIFFUSION 


Le logiciel SÉRIE.2 fonctionne sur AMSTRAD CPC 464 avec lecteurs de disquettes DDI, 
CPC 664, CPC 6128, PCW 8256 et PCW 8512 équipés de l'interface série d'AMSTARD 


Je désire recevoir un coffret SÉRIE.2 contenant un logiciel SÉRIE, un câble de raccordement, et un guide 
de l'utilisateur, au prix de 700 F TTC. 


O Je désire recevoir un coffret SÉRIE.2 spécial PC 1512 au prix de 1490 F TTC, (cette version permet 
la recherche automatique des codes postaux sur annuaire électronique) 


O Je désire recevoir une disquette de démonstration contre la somme de 65 F TTC. 
D Je désire recevoir un complément d'information (gratuit). 


[ Code postal : 


En cas de règlement joint, JMN Diffusion prend à sa charge les frais de port. 
A retourner à : JMN Diffusion - Les Clématites - 38410 URIAGE. 


IMPLICATION GROUPE DE COMMUNICATION DIALECTIQUE 
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TN 


table PO" 
TN alabe 464 
| ba | 


EDUCATIF 


Jean REINGOT 


Si vous ne voulez voir qu’une tête dans vos colonnes de chif- 


S i vous êtes un maniaque du rangement, un obsédé de l'ordre. 
fres ou de lettres, le programme Demo-tris est parfait : Stris 


différents vous sont exposés et commentés. 


si PCi) > PCitm) 
on les echange 


LED HD ED DE REA DE DEEE DE DE DEEE DE DD DEEE DE DEEE EX 
26 ‘# VISUALISATION DE FROCEDURES * 
5 ‘+ DE TRI # 
46 ‘* Far J.Reingot Septembre 86 * 
SO UMR MODE MED DE HE DEEE DE DE DE DE DE DE DE DE DE DE DE DE DE DD 
6 ‘+ Les REM sont optionnels # 
TD HD REA DE MED DE HE DRE DE DRE DE DE DE DE DE DE DEEE DE DE DE DEN 
EDCD 2 MMM MEME HE DOI DD DE DE DE DE DE DE DE DE JDE DE DD 
DORE FRESENTATION ## 
LOGS RD REED DE DE DE HE DD DE DD DE DE DE DEEE DE DEEE 


119 CLS:DEFINT a-g:DEFINT i-z 
126 BORDER 1%:INK 9,13:PAPER 6: INK 
1,6:INE 2,26,24:INK 3,6 

139 ORIGIN 24,8:DRAW 698,9,1:DRAW 6 
98, 284: DRAW 6,384: DRAW 6,6 
149 FLOT 32,22: DRAN 576,32: DRAW 576 
, 252: DRAN 22,252: DRAW 32,32 
156 FOR x=22 TO 608 STEP 32:FLOT x, 
52: DRAW x, 284:PLOT x,0:DRAW x, 32: N 
EXT 

169 FOR y=32 TO 252 STEF 32:FLOT 6, 
V:DRAW 32,y:FLOT 576,y:DRAW 698, y:N 
EXT 

179 a$="QERIOFASDFGHJELCENM" 

189 DIM F$(19):FOR n=i TO 19:F#(n)= 
MID#(a$,n, 1): NEXT +: 
196 FEN 3:FOR n=1i TO 19:LOCATE i+nx 
2,2:PRINT p#(m):NEXT 

266 FOR n=i TO 19 :LOCATE 1+nx2,24: 
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DEMO-TRIS 


Après avoir choisi votre tri favori lors du 
premier menu, une démonstration de la 
procédure suivie se déroule. La vitesse 
d'exécution est modifiable grâce aux flè- 
ches | et |. On vous propose ensuite le 
programme BASIC correspondant au tri 
ainsi qu'un test de vitesse sur une liste 
de nombres aléatoires. 

Les explications supplémentaires sont 
incluses dans le programme. 
Possesseurs de 464, supprimez le 


CLEAR INPUT de la ligne 2530. 


FRLNT RER AE 5 

219 a$="6799158324": DIM c$(16): FOR 
nel TO 16:c$(n)=MID#S(a$,n, 1) :NEXT 
224 FOR nei TO 16:LOCATE 3,Z+n%2: FR 
INT cH(n):NEXT 

236 FOR n=i TO 16 :LOCATE 239,Z+nx2: 
PRINT c$(n):NEXT 

246 FOR i=19 TO 2? STEF -1 

2959 FOR j=i TO i-1 

26% IF p#(j):p#(i) THEN s$=p#$(j):p# 
Cj)=p$(i):p#(i)=s#t: SOUND 1,76,16,15 
: FEN 2:FOR n=i TO 19:LOCATE 1+nx2,2 
sFRINT p#$(n):NEXT 

27% NEXT j:NEXT i 

286 FOR t=6 TO 566:NEXT 

296 FEN S:LOCATE 14,1@:FRINT "VISUA 
LISATION" 

306 FOR i=19 TO 2 STEF 
310 FOR j=i TO i-i 

3206 IF p$(j)<p#(i) THEN s#$=p#(j):p# 
(j)=p#(i)sp#(i)=sb: SOUND 1,96,16,15 
: PEN 2:FOR n=i TO 19:LOCATE 1+n%2,2 
4: FRINT p#$(n):NEXT 

336 NEXT j:NEXT. i 

346 FEN Z3:LOCATE 15,12:PFRINT 
VERSES" 

359 FOR i=1® TO 3 STEF 
364 FOR j=1i TO i-i 

376 IF chCj)>cHh(i) THEN s$=c#(jlsc# 
(j)=c#(i):c#(i)=s$: SOUND 1,126,16,1. 


et 


"DE DIT 


SE 


DEMO-TRIS 


GS: FEN Z:FOR n=il TO 16:LOCATE S,2+n% 
ZB: PRINT c$(n):NEXT 

389 NEXT j:NEXT :i 

294 FOR t=6 TO S66:NEXT 

466% FEN Z:LOCATE 12,14:FRINT 
DURES DE TRI" 

416 FOR I1=16 TO Z STEF 
426 FOR j=1i TO i-i 

456 IF cé(j)icé(i) THEN s$=c$(j)ics 
(j)=ch(i)sc#é(i)=sé: SOUND 1,156,10,1 
S:FEN Z:FOR n=i TO 16:LOCATE 29,£+n 
#2: FRINT c$(n):NEXT 

44% NEXT j:NEXT i 

45% FOR t=® TO 5666: NEXT:CLS 

464 FEN S:LOCATE $,9:FRINT 


“PROCE 


Ad 


CELERER AFFUYEZ SUR ";CHR&(246) 
47% LOCATE S,11:FRINT "FOUR RALENTI 
F AFFUYEZ SUR  "+CHK$(241) 


48% LOCATE 1,13:FRINT "BRUITAGE: " 
494 LOCATE 1,15:PFEN 1:FRINT "Compar 
aison sans echange: "s:FEN Z:LOCATE € 
8, 153 FRINT'2CRACHEMENT 

596 LOCATE 1,17:FEN 1: FRINT "Compar 
aison avec echange: !":FEN 2: LOCATE 
8,17: FRINT'ESONNETTES: "3: PEN 35 

919 FÜR te6 TO] 866%: NEXT: CLS 

DSCREN UHR DD HE DEPECHE EDR DE ÉD ÉD ÉD DE DE DE DEEE DER DE DEEE 
DIE HE MENU FRINCIFAL XX 
SAC ROMEO DECO ÉD HE DEEE 
399 BE=UTRI À BULLE'":MS="TRI DU MAX 
IMUN': IS=UTRI FAR INSERTION": SS="TE 
£ 
FROCEDURE 
364 LOCATE 
4633"1" 
374 LOCATE 
Ds at 

384 LOCATE 
HRADNBRE 

394 LOCATE 
» 46) 3 CPI 
6% LOCATE 
6) st 


9,S:PRINT E$3; STRINGS (1, 
D, 7:PRINT M$; STRING (9, 4 
D,O:FRINT 16: STRING (6, 4 
9,11: PRINT 6%: STRING (11 


DIS: FRINT HS: STRINGS (11 


&l ZHS=INEÉEYS:IF Z$=e"" THEN 616 

&Eé zeVAL(E:#$)s:0LS 

656 ONCz) GOSUR 754,976, 1200,1466, 1! 

786 

6464 WINDOW 1,46%,1,25:C0CLS:PEN 

85% LOCATE 7, SPRINT MERE sun POUR 
recommencer" 

GO LOCATE.:7, LORERINT EM, . 55. pou: 
Fr rétour au menu" 

6109 LOCATE AR t2sPRINTRUECEr ESS pou 


Fr voir la procedure" 

684 aB=INÉEVS:IF a$="" THEN 686 

696 IF a$z"r!" OK a$="R" THEN CLS: 60 

TO 636 

704 IF a$="m" OF a$="M" THEN CLS: GO LRINT 


“FOUR AC 


SELECTIF":H#="TRI DE SHELL'":FR#=" | 


| pe 


1 


556 
IF a$="p" OR a$="F" THEN. ON 
2600,2780,2960,3160, 3356 
FREE DE DE DE DE DE DE DE DE HE DE DE HE DEME CDD DEDE DE DEEM EE N 
x DEMO TRI À BULLE xx 
LAEHEDE DEEE DE DE DEEE DE DE DÉHEHE CNE DEEE DE DE EE DEEE 

759 GOSUB 2126:LOCATE #2,2,15:PRINT 
#2,5$ 

769 PLOT 15,15,3:DRAW 194,15:DRAW 1 

94,37: DRAW 15,37: DRAW 15,15 

77% LOCATE #2,14,2:PRINT #2,"on com 


pare: Pr) cet PA 32" 

786 LOCATE #2,14,4:FRINT #2,'"si F(j 
PRE! 

79% LOCATE #2,14,5:PRINT #2.'on les 
echange" 

966 FOR i=15 TD 2 STEP -1 


819 FOR j=2 TO i 
829 LOCATE #1, (J-1)#3-1,2:FRINT #1, 
Moj—l Fi 

36 LOCATE #1, Cj-1)#3,1: PRINT #1,CH 
FRS (246)4+"  M+CHRS (246) 

84 LOCATE #3, (i#5)-1,1:FRINT #3,CH 
R$(245)+"i" 

856 LOCATE #2,5,2:PRINT #2,"is"si 
86% LOCATE #2,5,4:PRINT #2,"j="s 


876 IF p(j-1)%p(j) THEN FRINT CHKS&( 
7) ss=p(j-1):p(j-1)=p(j)spti)=s:60S 
UE 23:26: G60T0 894 


686 
896 
PISTE) 
916 


SOUND 1,478,26,15,,,16 

GOSUE 2396 

CLS #1:NEXT j 

CLS HZ3:NEXT à 

GOSUE 2516 

RETURN 

LM RM DEEE DE DE DE ÉD DE EDEN DH NÉ 
‘#* DEMO TRI DU MAXIMUM *# 
Dr ROMEO ONE EE EN D 6 D DE DE D EDEN HE EEE EE 

976 GOSUER 2126:LOCATE #2,2,15:FRINT 
#2,M# 

986 FLOT 15,15,%:DRAW 242,15:DRAW © 

42,27:DRAW 15,27: DRAW 15,15 


930 
p4ù 
956 


996 LOCATE #2,14,2:FRINT #2, "on com 


pare Fiji et Fi)" 

1966 LOCATE #2,14,4:FRINT #2,'"s1 F( 
RS OR me ne ES 

1419 LOCATE #2,14,S:FRINT #2,"on le 
& echange" 


1926 FOR i=13 TO 2 STEF -1 
1926 FOR j=1 TO i-1 

1946 GOSUB 2396 

1956 LOCATE #1,3j*3,1:FRINT #1,CHRS# ( 
246) 

1966 LOCATE #2,5,2:PRINT #2,"is=";i 
1679 LOCATE #2,5,4:PRINT #2,"j="3 j 
1989 LOCATE #1,3j#3,2: PRINT #1,"j" 
1996 PEN #3,2:LOCATE #3, (i*3)-1,1:P 


HZ, CHRS (245) +01" 


000 
49 


THEN PRINT CHR& (7 
)ss=p(j)spij)=pii)lip(i)=s:GOTO 1126 


1196 IF p(i)sp(i) 
1116 
1126 
1156 
1146 
1156 
116% 
1176 
1186 
1196 


SOUND 1,478,20,15,,,16 
GOSUR 2526 
NEXT 3j 
CLS RSSNEXT i 
GOSUB 2519 
RETURN 

LMD MED DD DE DE DÉDE DEEE DE DD OH ED DE DE DE DE DEEE 
‘## DEMO TRI FAR INSERTION  *% 
FMH HD HD DE DE DE DE DE DE DE DEEE DEEE DE DE DE DEEE EE 
1206 GOSUR 2126:LOCATE #2,2,15:FRIN 
T #2,1$ 

1519 FLOT 15,15,3:DRAW 296, 15: DRAW 
296,57: DRAW 15,37: DRAW 15,15 
1229 LOCATE #2,14,2:FRINT #2,'"on 
mpare FCi-1) et FCj)" 

254 LOCATE #&,14,4: PRINT #2, '!"si 
5 front DS RASE 2e On Re ES 

124% LOCATE #2,14,5:PRINT #£, "on 
& echange" 

1254 FOR is TO 1 

1266 LOCATE HS, i#3-1, 12 FRINT #5, CHR 
LIN OR EE N AUS ms 

DÉAOREOR Je I 10: 2"STEF, =! 

12686 GOSUR 2:96 

12969 LOCATE #1, Cj-1)#%3,1: PRINT #1,0 
HE (246) +7 M4+CHRSE (246) 

1596 LOCATE #1, Ci-1)#5-1,2:FRINT #1 
ii SL 
1519 LOCATE #2,5,2:PRINT #2,"isz"s 
1326 LOCATE #2,5, 4: FRINT #2,"j="; 
1550 IF p(jiz=p(j-1) THEN SOUND 1,4 
78,26,15,,,16: FOR t=6 TO v/4:NEXT:C 
LS #l:GOTO 1466 

1246 FRINT CHK#(7)s:s=p(j-1)sp(i-i)= 
ptiiip(ilz=s 

1259 LOCATE #1, (j-1)#5,1: PRINT #1,C 
HR (246 ) 

156% LOCATE #1, 1x5, 1: FRINT #1,CHR$# ( 
246) 
1576 
1:66 
1396 
1466 
1416 
1426 
1456 
1446 
1456 


Co 
FA 


le 


i 
i 


GOSUR 2526 
FOR t=& TO v/4:NEXT:CLS #1 
NEXT j 

CLS HZ:NEXT 

GOSUR 2516 

RETURN 

Fe D DE EH DE DE DE DE DE EE DE ÉD DE DE ED DE ÉD DE DEEE 
TH DEMQ TRI SELECTIF CL: 
LED DE MD DCE MCE ME EC DE DE DD ME CHÉDEE DÉE CMEE  E 
14664 GOSUR 2126 

1474 FLOT 15,15,3:DRAW 216, 15: DRAW 
216,27: DRAW 15,37: DRAW 15,15. 

1486 WINDOW #4,1,46,16,16 
1496 LOCATE #2,2,15: PRINT 
156% LOCATE #%,14,S5:FRINT 
cherche le maximum" 

151% LOCATE #E,14,7:FRINT 


#2,5% 
#=,'"on re 
HZ, "puis 
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on l'echange" 

15206 FOR i=i3 TO 2 STEF -ls:m=il 

1556 LOCATE #35,1#35-1,2:PRINT #5, CHA 
$(245)3;"i" 

1546 FOR j=i TO i 

1556 GOSUR 23:96 

156% LOCATE #1,3j#5,2:FRINT #1,"3j" 
1579 LOCATE #1, C1)#3,1: PRINT #1,CHR 
$(246) 


11589 LOCATE #1,3j%3,1:FRINT #1,CHR& 
246) 

1599 FOR t=® TO vs: NEXT 

1864 CLS #1 

1619 LOCATE #2,5,S:PRINT #2,"im"si 

16426 LOCATE #2,5,8:PRINT #2, '"m=";m 

1854 LOCATE #2,9,6:FRINT #£,"j="s 

164% IF poj)sm THEN m=p(j):w=j: SOUN 


D1,256,:6,15 ELSE SOUND 1,4:0,36,1 
SyyseuiCLS #4 

1659 CLS H4:FEN #4,1:LOCATE #4,wx£, 
L:FRINT #4, "M" 

166% NEXT j 

1874 FRINT CHRS$(7):s=p(i)sp(i)=p (W) 


:piW)=sS 

168% LOCATE #1,1%5,1:FRINT #1,CHR# € 
246) 

169 LOCATE #1,wx5, 1: PRINT #1, CHARS € 
246) 

1766 FOR tte® TO 1966: NEXT tEt 

1714 GOSUE 2326 

1726 CLS #4: NEXT ji 

17:96 GOSUB 2516 

174% RETURN 

PCA BEM HE MEME DE DÉCO DE DE DD DE DEEE DE DEEE 
PACS à DEMO  TRITDE: SHELL x 
LATE UE HEOMEHE DH DEEE DE DE HE DEEE DE DD DE DER DÉDEDEOE DE 
1789 GOSUB 2126 

1796 FLOT 15,15,%:DRAW 216,15: DRAW 


219,37: DRAW 15,257: DRAW 15,15 

1849 LOCATE #2,%,1S: PRINT #2,H# 
181% LOCATE #2,14,2:PFRINT #2,'"on co 
mpare Fi) et FCi+m)" : 

1829 LOCATE #%,14,4:FRINT #2,'"si F( 
+ 22 DDR RAA roi CS De €] LS 

185 LOCATE #2,14,S:FRINT #2, 
& echange" 


'on le 


184% FOR m=iz TO € STEF -1 

185% m=INT((m+1)/2) 

186% FOR j=i TO 15-m 

1876 GOSUB 27:96 

1884 1=)] 

1899 LOCATE #2,5,2:PRINT #2,"i="si 
1946 LOCATE #2,9, 4: FRINT #2, "ms"; m 
1916 LOCATE #1,ix5,1l:FRINT #1,CHRS# ( 
246) 

19296 LOCATE #1,ix5,2:FRINT #i,"i" 
1956 LOCATE #1, Citm)#5, ls: PRINT #1,ÙC 


HR$ (246) 


194% LOCATE #1, Ci+m)#ï-1, Ze: FRINT #1 
à LL i+m' 

1959 FOR t=6 TO v:NEXT 

1969 IF pi)i=pit+m) THEN SOUND 1,4 
78,20,15,,,16:CLS #1: G0T0 2656 

1976 FRINT CHR#(7):s=p(i)s:sp(i)zp (ir 
mi:p(itm)iz=s 

1986 LOCATE #1,1%2, 1: FRINT #1,CHRS ( 
246) 

1996 LOCATE #1, Ci+m) xs, 1: FRINT.#1,C 
HR (246) 

26066 FOR tt=ë TO viNEXT 

201% GOSUER 2526 

2429 i1=i-m 
20359 IF i:=0 
2940 FOR tt=o 
2054 NEXT J 
2666 CLS #i1:NEXT 
247% GOSUB 2516 
2984 RETURN 

RSC EE ES SE EE EE 
2108 °x# AFFICHAGE #% 
FALL ES DE MODE DE DEDE DE DEP DE EEE DE DE DEEE DE DEEE EEE 
2126 ORIGIN 6,6:DIM p (125) 


126 keSs veto: GOSUE 2276 


THEN 1966 ELSE 
"ECETANEXT 


25 


M 


214% FOR ai TO 15:FEN 
2156 LOCATE ax3-1,2: PRINT "PF" 
2164 LOCATE ax3-2,3: FKRINT a 
2174 NEXT a 

2184 FEN 1:FOR x=i TO 13 
219% RANDOMIZE TIME 


2206 


p (4) = INT (RND#99) +1 


2219 LOCATE x#3-1,95 
2326 FRINT USING "Hh#";pCx) 
22:56 NEXT x 


224% WINDOW #1,1,46,6,7:FPEN #1,% 
2256 WINDOW #3,1,46,8,8:FEN #3,2 
2268 WINDOW #®,1,46,16,25:PEN #2,5 
2276 FOR X=16 TO 646 STEF 48 

22896 FLOT X,466,3 

2296 DRAW X,:26 

2366 NEXT 

2#16 RETURN 

2320 FOR x=1 TO 15 


PRESRELe 
AT | 


2:46 


FEN 1:LOCATE 
FRINT USING 


KES lo 


UHH sp (CH) 


2564 NEXT x: CLS#1: RETURN 

DURE RE BEDE DE DEDE DE DE MED DEEE DE DEEE DEEE DEEE ÉD EDEN 
2:76 °#% REGLAGE VITESSE ## 
REG RHONE DE DE DE DE DE DEEE DE DEEE DE DE DE DE DE EEE 
25006 IF INÉEY(2)=6 THEN vev+466@:k=zk 
ps 1 

2460 IF INÉEY(G)=6 THEN vzv-46@sk=zk 
ÆT 

2416 IF EkEr16 THEN k=16 


24%O IF INÉEY(E8)=06 THEN ERASE pa:CL 
S:GOTO 566 
2456 IF v=® THEN LOCATE #2,21,13:PE 


NÉE, 2: FRINT#HE, "Vitesse maximum 14" 


2446 FEN #2,3:LOCATE #2,23,14:PRINT 
#2,"Vitesse: "3; CHR$ (254) :FEN 
LOCATE #2,23,14:PRINT #2,k 


LAS 
PRE 


2456 FEN #2,1 

2466 FOR tt=® TO viNEXT 

247 RETURN 
D'ACCES UM EE MODE HE DE DE DEEE D DEEE DE DE DE EEE EE 
400 ‘x%# FIN DEMO #4 x 
DSC CS  UOEOMOMOMOHEDDEEDE DÉE DÉ DE DE DEEE DE CHE DE CHE AE MERE DE DE 
2516 LOCATE #2,26,16:FRINT #2, "TERM 
INE" 


PE29 SOUND 1,71,%6,15:SOUND 
, 15: SOUND 1,47, 66,15 

26+9 FOR tt=é TO 5466: NEXT:CLEAR IN 
FUT:ERASE p:RETURN 


1,60, 36 


TAG AM DE ENONCE DE DE EEE EE DEEE DE DE DE DEEE HE 
2939 ‘+ AFFICHAGE DES FHOCEDURES  % 
LORS Me MM CNED DE DE DE DE DE DÉDE DEEE DE OE DE DEEE 
A . 
LS °k#x TRI À EULLE MX 
DES CD C4 TM MMM ME ED DE DD DE DE ÉD EE D DE DE DE 


2000: CLSILDEATES SSSR PARENT FRS ES 
BLkEZ=I 
2619 FLOT 24,276,.3s: DRANW 576,276: DR 
W 276,244: DRAW 4,44: DRAW 4,576 
2620 LOCATE 4,5:FRINT Boucle exter 
ieure: i de N a 2" 
2654 LOCATE 4, 63: FRINT 
ieure: ji de © a i" 
284% LOCATE 4,7:FRINT 
Fi et P'ORSPEE 
2654 LOCATE 4,8:FRINT 
[ECO one 1 PANIERS] oi 5 PS D 
2664 LOCATE 4,16: FEN es FRINT 
AMME 
2674 FLOT 72,232,%: DRAW 639,252: DRA 
W &E9, 126%: DRANW 7%, 126: DRAW 72,2% 
2684 LOCATE 6,1£2:FRINT "16 FOR 1=M 


LL + F4 


"Boucle inter 
"Comparaison 
"Echange si 


'FROGR 


TO 2 STEF -1" 
269% LOCATE 6,13:FRINT "26 FOR j=2 
F5 


276% LOCATE 6,14:FRINT 
Et 

271% LOCATE 9,15:FRINT 
LMP ETES TI E=ERICII SPOILERS 
2724 LOCATE 6, lé: FRINT 


"36 IF FCj-1 
“THEN S=P (j— 


“ag NEXT j" 


27:26 LOCATE 6,17:FRINT "56 NEXT i" 
2746 GOSUR 4276: G0TO 256% 

TS UMR HD DD ÉD DE DE DD D DE DE DE DE DE DE DE DE DE DEEE 
2766 ‘##%X TRI DU MAXIMUM XX 
PS 
2784 CLS:LOCATE S,S:PRINT FKS&+! "+M 


BIkHkTZE É 

2794 FLOT 24,576, %:DKAW 428,376: DRA 
W 428,544: DRAW 24,544: DRAW 24,276 
29860 LOCATE 4,5: FRINT "Boucle exter 


1@ © © 


i de Na 


#31 
pa 


ieure: 
2814 LOCATE 4,6:PRINT 


ieure!: Jde tira il) 

28296 LOCATE 4,7:FRINT 
ROLL RES FEGAITS 

282% LOCATE 4,8:FKRINT 
LES SE M A ra € Lo) 


“Boucle inter 
“Comparaison 


“Echange si 


2844 FLOT 723,232%,3:DRAW 591,232: DRA 


W 591, 
2854 LOCATE 4,16:FEN 2 
AMME " 
2864 
Te 
2874 
2 4 fes RU 
288% LOCATE 6,14: FRINT 
(A SAS &E 19 EL 

2894 LOCATE 9,15:FRINT 
2FC=F(i):F(i)=S" 
2964 LOCATE 6,16: FRINT 
2914 LOCATE 6,17: FRINT 
2926 GOSUE 45:76: G0T0 
29% 
2946 
2956 
2964 CLS:LOCATE 3,3:FR 
$S:KHKEZE 


LOCATE 6, 12:PRINT 
STEF -1" 


LOCATE 6,13:FRINT 


EL. 


126: DRAW 72,126: DRAW 72,232 


sFRINT "FROGK 


"19 FOR i=N 
“26 FOR j=1 
“36 IF PCi): 
“THEN S=F (j) 


“49 NEXT j" 
“59 NEXT i" 


554646 
LOMME EEE ÉOMDEEEDE DÉDEDEDH EEDEHHEENEE 


TRI FAR INSERTION 
2 HD DE DE DE DE DH DE DE DE DE ÉD DE DE DEEE DE DE ED SEE 


XX 


INT PR$+" "+I 


2979 FLOT 24,576,23:DRAW 476,376: DRA 


W 476,344: DRAW #4, 


544:DRAW £4, 


276 


2984 LOCATE:4,5:FRINT "Houcle exter 


ieures: i de 2 a N'" 
2994 LOCATE 4,6:FRINT 
ieure: j de i a 2" 
2046 LOCATE 4,7:FRINT 

P(j-1) et Pi)" 
2919 LOCATE 4,8: FRINT 

Pi) FC)" 
5923@ LOCATE 4,9:FRINT 
vant' 


“Sinon: 


"Boucle inter 
“Comparaison 


Echange si 


jsui 


5956 FLOT 72,216,3:DRAW 639,216: DRA 
W 439,88:DRAW 72,88:DRAW 72,216 


3446 LOCATE 4,11:FEN 2: 
AMME 

5959 LOCATE 6,13: PRINT 
TO N' 

3669 LOCATE 6,14: FRINT 
102 STEP ET 

2674 LOCATE 6,15:FRINT 
12039" 

5686 LOCATE 9,16: FRINT 
1)2Fç0j—-i1)=F(j)s:F(j3)=S" 
5996 LOCATE 9,17:FRINT 
g"' 
7166 
5116 
7126 
3150 
5149 


LOCATE 6,18: FRINT 
LOCATE 6,19:FRINT 


ET. 
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PRINT "FROGR 
"19 FOR i=2 
"20 FOR j=i 
SD IFSRUIEE 


"THEN S=F (j— 


"ELSE GOTO S 


"48 NEXT j" 
"O9 :NEXT -2* 


GOSUE 4376:G0T0 2566 
PERDRE DE DE DE DE DE DEEE DE DE DEEE DE DE DEEE DE DE DEEE 


TRI SELECTIF 


XX 


FORM ONCE DE DE DE D CHE M DE D ÉD CAE CH CHE EE EE 
3,3: PRINT FR$+" "+5 


Er er 


S00 
5166 CLS:LOCATE 
H:KHKE=4 
2176 FLOT 34,276,3:DRAW 396,376: DRA 
W 296,244: DRAW 24,344: DRAW 24,576 
5189 LOCATE 4,S:FRINT "Boucle exter 
ieure: i de € a N'" 
5199 LOCATE 4,6: FRINT 
ieure: j de i a 2" 
5266 LOCATE 4,7:FRINT 
le plus grand (M)" 
3919 LOCATE 4,8: FRINT 
te l'indice k" 
5256 LOCATE 4,9:FRINT 
hange" 
2256 FLOT 72,216,2%:DRAW 639,216: DKA 
W 659,164: DRAW 72,164: DRAW 72,216 


“Boucle inter 
“On recherche 
“On lui affec 


“On fait l'ec 


224 LOCATE 4,11:FEN 2:PRINT "FROGK 
AMME" 

22596 LOCATE 6,1%:FRINT "16 FOR i=N 

TO 2 STEP -1:M=0" 

2266 LOCATE 6,14:FRINT "26 FOR j=1 

Tori 

2276 LOCATE 6,15:FRINT "506 IF FCjÿ): 
M THEN M=PFCj):Ek=)j" 

2284 LOCATE 6,16:PFRINT “46 NEXT j" 

2294 LOCATE 6,17:FRINT "56 S=F(i):F 
(i)=F(KH)sp(E)=S" 

3566 LOCATE 6,18:FRINT "66 NEXT i" 

5519 GOSUR 45:76:G0T0 23566 


RUE GS UE DOME DOME DD DÉONE DE HD DEEE DEEE DE DM DE ÉD E 
HET ‘4x TRI DES SHELL #4 # 
DRAC UM DE DM DE DE DE DEEE DE DD DE DE DE DD DEEE DE DE DEEE 


2350 CLS:LOCATE S,3:PRINT pr$+" "+h 
B:EE=S 
2364 FLOT 24,376,3%:DRAW 596,276: DRA 
W 396,244: DRAW 24,344: DRAW 24,576 
3376 LOCATE 1,5:FKRINT "Boucle exter 
ieures m de N— SR 
5386 LOCATE 1,6: FRINT 
tableau par 2(lignes 
3596 LOCATE 1,7:PRINT 


“On divise le 
26-866) 
“Boucle inter 


ieure: de j=i a N-M" 

3406 LOCATE 1,8:FKRINT "Comparaison 
de F((i) et PCi+m)" 

3416 LOCATE 1,9:FRINT "On echange 5 
PET) SP CiEM) 


3426 LOCATE 4,11:FEN 2:FRINT “FROGR 
AMME ‘ 
3456 FLOT 72,216,3%:DRAW 639,216: DRA 


W 629,72: DRAW 72,72: DRKAW 72,216 


32446 LOCATE b, 12: PRINT "16 FOR m=N-- 
ESTOSITOTER SE 

3450 LOCATE 6,14:FRINT "26 MINT ((M 
+1)/2)" 

3466 LOCATE 6,15:FRINT "36 FOR j=i 
to N-Msi=j" 

3476 LOCATE 6,16:FRINT "46 IF F(1)< 


DEMO-TRIS 


=Fi+m) THEN 86" 


486 LOCATE 6,17:FRINT S=PF(i):F 


(1)=F(itmisF(i+m)zs" 

349% LOCATE 6,18:FRINT "66 izi-m" 

2566 LOCATE 6,19:FRINT "76 IF ir:=û 

THEN 4% ELSE 864" 

2316 LOCATE 6,26:FRINT "8% NEXT j,m 

3524 GOSUER 4576: G60T0 2566 

3536 FRRHE HE DE DE DEHEDE HE DE DE DEEE DE DE EE DE DE DE DE EME DE DE ONE 
44 ‘+ FROGRAMME FRINCIFAL TRIS + 

+550 FUME HE DE DD DE DE HE HE DE HÉÉ DE DE DÉDE DEEE NE EE NE 

5564 PEN Z:FRINT "Nombre d'elements 
a trier" 

2576 INFUT n 

2506 DIM q(n) 

3596 FOR x=1 TO n 


666 gx) =INT (RND#16066) +1 

2814 NEXT 

F6E4 FRINT "Tableau non trie’ 

656 FOR «=zi TO n 

3644 FRINT q(x) 

345% NEXT 

F664 heTIME 

ee ON HE GOSUB :2966,:986,40866,415 
, +250 

ner h=(TIME-h) /566 

696 FRINT:FRINT "Tableau trie" 

276% FOR x=1 TO n 

2714 FRINT gx) 

372€ NEXT 


21756 LOCATE 1Æ2,6:FRINT "Nombre d'el 
ements tries':LOCATE 16,8:FEN 2:PRI 
NT n 

2740 FEN Ses LOCATE 12,12: FRINT "Temp 


5 en secondes: " 
2759 LOCATE 1l6,14:FEN 2:FRINT USING 
CE Hs h 


276% LOCATE 26,25S:FEN 1:FRINT “Appu 


vez sur une touche!":PFEN G:CALL &EBI 

(a) 

2774 ERASE Q:CLS 

2786 LOCATE 7,1Z2:FRINT "Ms Ketou 

F au menu 

3796 LOCATE 7,14:FRINT "ETS Autre 
test" 

2846 aB=INEEYS:IF a$="!" THEN 2866 

2816 IF a$='"m!" OK a$="M!" THEN CLS:G 

OTO 566 

2826 IF a$="t' OK a$="T" THEN CLS:G 

OTO 2566 

28:06 GOTO 28646 

640 ARR ADEME DE DE DE DE DE DE DE DE DE DE DE DE DEEE DE DE EEE 

2656 ‘+#x FROGRAMMES DES TRIS ##% 

EG UHR DEEE DEEE DE DE DE JE DE DE DEEE DE DE DE DEEE 

HO 7 CE ORMROMEHEEMEDEDE DE DEDE DE DE DE BED DEEE DE DE DE DÉDE DE DE DEEE 

OBS ‘++ TRI À BULLE + 

RDC EEE MH DE DE DEEE DE DE DD E DE DE DE DEEE DE DE DEN 


5946 


5916 


5926 
GI 19 


5950 
2946 
3956 
29766 
5976 
3996 
5996 
4666 


gti): 


4416 
4020 
LS RAS] 
4946 
40564 
4666 
46976 
4366 


Cred 


4990 
4108 
4119 
4126 
4136 
4149 
4156 
4168 
4176 
4185 
4199 
4200 


TA 


FOR izn TO € 
FOR j=2 TO i 
Le L) > CE) 
=q(j):q(ji=s 
NE "TSX 
RETURN 

LREHOMEHE DEN DE DE DE DE DE ÉD DE DEEE ED DEN GENE EN 
ET. TRI DU MAXIMUM XX 
LEE DEDEDEHE EME DEHE DE DEEE EE DE DEEE DEN DEN EN 
FOR i=n T0 2 STEP —1 

FOR j=1i TO i-i 

IF q(j)rq(i) THEN s=q(jh:q(iis= 
qiiz=s 

NEXT j,i 

RETURN 

LM DEMEMODE DE DE DE DEEE DE DD DEEE DE DEEE DE DE DEEE 
LT. TRI FAR INSERTION XX 
LME DEEE DOME DH DE DE DE DE DE DE DE ÉD DE DE GE HÉDE DE DEN DE 
FOR i=2 TO n 

FOR J=1 6072 STEF = 

IF gji-1):q(j) THEN s=q(i-1l):q 
#q(j):q(ji=s ELSE GOTO 4146 
NEXTS:3 

NEXCTEE 

RETURN 

LH HE DE DE DIE DE DE DE DE DE D DE DE DE DE D DE DE DE DE EE DEEE 
CHE ARESSBCERTTIEÉ A X 
LH MORE DE DIE DEEE DE DEEE DE DE DE DE DE DE DE DE DE DE DE 
FOR in TO 3% STEF -1:mz@ 

FOR j=i TO i-1 

IF g(j)irm THEN m=q(j)skz) 

NEXT j 

s=q(i)sq(i)=q(k):q(k)lzs 

NEXT à 


STEF 


THEN s=q(j-1)s:q 


4214 RETURN 

AD UEEOOMOMEMONEDEOMEME DEMO DEDÉ DE DEEE DE ED DEEE DE 
AZTE ‘##+ TRI DE>:SHELL LÉ 

ARAG  HONOHEOHEEONEOMEOHDEMEDEDÉ DE DE DH DE DE DE ED DEEE DEEE DE 
4259 FOR m=n-1i TO % STEF -i 

4269 m=INT((m+1)/5) 

4276 FOR j=i TO n-m:ix)j 

4284 IF q(i)i=q(i+m) THEN 4526 

4299 s=q(i):q(i)=q(i+m):q(i+miz=s 

4346 i=1i-m 

4516 IF i:=6 THEN 42864 

4:26 NEXT j,m 

4554 RETURN 

AT AG HD DE HE DE MEME DE DE DE DD DE DE DEEE DE DE DE DEEE JE DEN 

4556 ‘#x%% MENU SECONDAIRE 4x 
HE RROMOHOEHEHEOHEMEDEHEDEDE ED DEEE DE DE DE DEEE DE DEEE 

4579 PEN 1:LOCATE 22,23%3:FRINT "<Mi 
retour au menu 

4:86 LOCATE 22,24:FRINT "£Tr test" 

4:96 a$=INFEYS:IF at='"" THEN 4796 

4466 IF a$='"m" OR a$='"M" THEN CLS:6G 

OTO 596% 

4416 IF a$="t" OR a$="T" THEN CLS 

442% RETURN@ 


TOUT SUR SOUND 


Une présentation qui 
essaie d'être 

claire des 
instructions 

SOUND et autres 


RASSUREZ-VOUS : la série EN AVANT 
LA MUSIQUE ne sera pas faite que de 
théories pas marrantes. Les logiciels qui 
vous seront proposés par la suite seront 
des utilitaires, c'est-à-dire que la plupart 
vous permettront de générer des sons 
sans que vous ayez besoin de vous poser 
de questions. Mais comme beaucoup 
coup d'entre vous aiment analyser et 
comprendre les logiciels qu'ils recopient, 
ainsi que le BASIC de leur micro, voici 
pour éclairer leur lanterne : 

Prenons la terminologie du manuel Ams- 
trad : SOUND<ETAT DE CAN- 
AL>,< PERIODE SONORE>1, 
<DUREE>[,<VOLUME>[, <ENVE- 
LOPPE DE VOLUME >[,<ENVELOPPE 
DE TONALITE>{, <PERIODE DU 
BRUIT > ]]]]]. Pas très clair tout ça. Bon, 
j'explique : 


L'ETAT DE CANAL : il arrive queplus 
sieurs musiciens jouent en même temps, 


ou qu'un musicien joue plusieurs notes 
simultanément, d'où un mélange. Cfest 
le rôle des canaux À, B, C, chaque canal 


reproduisant un son indépendant des” 


autres. 

Mais comment envoyer un son sure 
canal voulu ? Chacun est mis en servicë 
lors de l'envoi de son numéro dans 
l'ETAT DE CANAL. Ainsi A répond au 
n° 1,Bau2C au 4. Pour faire travailler 
un canal, on indique son numéro, et pour 
sortir le son sur plusieurs canaux, on 
ajoute leurs numéros. 


PYRENEES 


DISTRIBUTEUR ET CENTRE TECHNIQUE 
AGREE AMSTRAD 


Logiciel professionnel 
OÙ sur mesure pour 
compatible IBM PC. 


DE L'ORDINATEUR INDIVIDUEL 
AU COMPATIBLE IBM PC 1512 


41, rue du IV septembre 
TARBES Tél. 62.93.70.71 
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Bernard POISOT 


SOUND 1, donnedn son surle canal A 
SOUND 4, 

SOUND 6... B 
et C $ 

Examinons également deux possibilités 
de luxe: 

NOUS AVONS'EA STEREO : en reliant 
le CPC à votre ampli stéréo (voir 
MICROSTRAD n° 3), vous enverrez le 
son sur les deux voies (B), à droite (C), 
ou à gauche (A). 

NOUS AVONS UN CHEF D'ORCHES- 
TRE : avoir trois musiciens est une belle 
chose, encore faut-il qu'ils jouent en 
rythme. Cette synchronisation s'obtient 
en ajoutant àla valeur précédente 8 si 
le chef suitle rythmerdeA;t6pourB/32 
pourfävoir C comme repère. 

SOUND 85,.; signifie : canaux A et B 
actifs (1 #2), sYnchronisés sur C(+32). 


- Il faut bien sûr que C soit actif. 


On peut retarderl'exécution de la musi- 
que ou du bruit en ajoutant 64, tout en 
présentant les valeurs pour le son qui 
Sera alors exécuté au moment où'on 
enverra l’ordre RELEASE suivi du n° du 
canal concerné. 

SOUND 65... envoie les valeurs au canal 
A(1), mais ne provoque pas l'exécution 
(+ 64). 


 RELEASE 1 provoquera'@ette exécution 


aü-moment que vous aüfrez déterminé: 
Si les. trois canaux sont occupéséà 
accomplir leur tâche mais que vous sou 
haitezdibéreml'un d'eux pour'envoyer un 
nouveau Son, OUl'arrétermajoutez 128 
à son numéro. 

SOUND 130... arrête (128) l'exécution 
en cours sur le canal B(+2), et exécute 
le nouveau son contenu dans les valeurs 
qui suivent ce numéro. 

LA PERIODE SONORE : c'est le päramè- 
tre le plus évident, ce qui détermine la 
hauteur ou fréquence, donc un son grave 
ou aigu, un DO ou un RE, MI... La valeur 
va de 1 (son très aigu) à 4095 (son très 
grave). La valeur O ne produit pas de son 
et permet de faire des bruits (voir plus 
loin). 

LA DUREE : ici encore, c'est très simple. 
La durée pendant laquelle le son est 
entendu est exprimée en centièmes de 
seconde. La valeur va de 1 à 32 767(5 
minutes 27 secondes). La valeurO' donne 
le contrôle à la commande.d'enveloppe, 
qui sera vue plus loin, etume valeur néga- 
tive indique le nombreé*de répétitions de 
cette enveloppes à 
L'ENVELOPPE DE VOLUME : le timbre 
d’un instrument, c’est-à-dire la caracté- 
ristique àrlaquelle on le reconnaît, est dû 
en partie à la façon dont il fait varier la 
force du son qu'il produit. Une corde qui 


Vibre» produit un son dont le volume 
monte rapidement à son niveau maxi, 
descend légèrement, se fixe, et s'atté- 
nue assez lentement. 

Cette Variation de volume se compose de 
4 étapes’ (sections d'enveloppe) que l'on 
peut'simuler avec les instructions suivan- 
tes (on attribue le n° 7 à ce son) : 
début du son: le volume monte en 1 
variation de 15 en 1/100: de seconde : 
ENV27,4,15,1 

1 légère diminution de 3 unités de 
volume“en0,02 s. : ENV. 7,1,15,1, 
1 48,2 

Niveau constant pendant 0,02 s. : ENV. 
7,4,15,1,1,-3,2,1,0,2 

Diminution lente : 12 paliers de 1 unité 
et 0,04 s. chacun ENV. 7,1,15,1,1,-3,2, 
1,0,2,12,-1,4 

Le volume retombe à O, la note est 
terminée. 

L'envoi de l'instruction SOUND avec le 
numéro d'enveloppe de volume 7 provo- 
quera l'exécution du son défini dans la 
ligne ci-dessus. On peut définir 15 enve- 
loppes différentes qui nous permettront 
d'avoir 15 instruments dans notre 
orchestre. || faudra les définir avant de 
les utiliser et n'oubliez pas qu'on n'en uti- 
lisera que 3 à la fois. 

L'ENVELOPPE DE TONALITE : on peut 
faire osciller la période donc la fréquence 
avec cette instruction. Cela donne un 
effet de vibrato qui est parfois recherché, 
une approche plus vraie du timbre d'un 
instrument ou un effet sonore. La 
syntaxe de cette instruction est très pro- 
che de ENV:Numéro d'enveloppe, nom- 
bre de répétitions du 1er cycle, modifi- 
cation à apporter à la période, durée de 
cette modification, puis, si besoin est, les 
cycles suivants avec leurs valeurs. 

LA PERIODE DU BRUIT : c'est la possi- 
bilité de superposer 1 parmi les 31 bruits 
de fréquences différentes au son de cha- 
que canal. La valeur O ne produit pas de 
bruit. 

Une bonne nouvelle : c'est fini. Si cette 
lecture vous a permis de mieux compren- 
dre comment faire du bruit, vous pouvez 
retourner à la lecture du manuel pour sai- 
sir les dernières subtilités telles que les 
valeurs négatives, nulles ou plus grandes 
que d'habitude. Une remarque : la valeur 
approchée de la fréquence s'obtient en 
divisant 62 500 par la période BASIC et 
non 125 000 comme l'indiquent le 
manuel et MICRO APPLICATIONS dans 
GRAPHISMES ET SONS et TRUCS ET 
ASTUCES 1, qui m'ont servi à compren- 
dre le son. 

A vos claviers (de votre CPC-synthéti- 
seur) et pas trop de bruit après 22h. 


QUELQUES 
EXEMPLES 
DE 


PROGRAMMATION 


Stéphane CLOIREC 


(:S: D FT ET 


pie beaucoup de préliminaires (pourtant indispensa- 
les, même s’ils vous ont paru longs !), nous allons ce 

mois-ci nous offrir une petite récréation : nous allons 
programmer ! Vous allez enfin apercevoir de vos yeux ce lan- 
gage dont nous vous vantons les mérites depuis maintenant 


quatre mois. 


Ceci va vous permettre de vous ren- 
dre compte par vous-même, à tra- 
vers divers petits programmes, de 
quelques-uns des avantages (et des 
inconvénients, chaque médaille 
ayant son revers !) de Turbo-Pascal. 


LA VITESSE 


Commençons par le début : la pre- 
mière chose que l'on fait, en géné- 


ral, si l’on veut tester un ordinateur, 
est de chronométrer sa rapidité. A ce 
point de vue, l’Amstrad a passé les 
tests haut-la-main : son Basic Loco- 
motive porte en effet bien son nom 
car il est particulièrement rapide. 
Pourtant, la frontière Basic/Pascal va 
bien se faire sentir : 

Comparons les deux listings n° 1 
(Basic et Pascal). Le programme est 
une simple boucle à vide qui tourne 


dix mille fois. Dès le début du pro- 
gramme Pascal, apparaît ce qui sem- 
blera pour vous, au commencement, 


être un inconvénient : il faut, au 
préalable, déclarer, dans une partie 
d'initialisation, toutes les variables 
utilisées dans le programme. Vous 
trouverez cela sans doute ennuyeux 
au début (on plante souvent un pro- 
gramme parce qu'une variable n'a 
pas été déclarée !), mais vous vous 
apercevrez bien vite qu'au niveau 
lisibilité, clarté et correction 
(‘‘debugging'')}) d'un programme, 
c'est loin d'être inutile ! La partie pro- 
gramme en elle-même est comprise 
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: Jean-Luc AULNETTE 


Illustrations 


entre le Begin (qui marque le début) 
et le End (de fin de prog.). Vous pen- 
sez qu'il ne peut y avoir d'énormes 
différences de rapidité entre les deux 
langages, comparez les vitesses 
d'exécution : 

— temps obtenu en Basic 
11,4 secondes 

— temps en Turbo-Pascal 
0,4 seconde (!!) 

soit presque un rapport de 30 entre 
les deux. 

L'écart est encore plus flagrant si 


l'on rajoute une simple addition dans 
la boucle (cf. listings 2 en Basic et 
Pascal). On obtient alors les temps 
suivants : 

— 29,3 secondes en Basic 

— 0,8 seconde en Pascal 

Pas besoin de commentaires super- 
flus : le Pascal va ici près de 40 fois 
plus vite que le Basic ! : 
Je vous invite vivement à taper ces 
petits programmes pour vous ‘‘faire 
la main'' et à vérifier les temps réa- 
lisés si vous êtes sceptique de 
nature. De plus, ne vous inquiétez 
pas si vous ne comprenez rien : tou- 
tes les instructions vont être expli- 
quées une par une dans les pro- 
chains articles. 


LA SIMPLICITE 


Passons maintenant au listing 
3-Pascal. Celui-ci illustre une possi- 
bilité intéressante du Pascal : la ges- 
tion des choix multiples par l'instruc- 
tion CASE (que l'on peut traduire par 
‘’au cas où...’" L'équivalent en Basic 
ne peut être obtenu que par des 
tests (‘’IF'’) à la chaîne ou par l'ins- 
truction  ‘’ON...GOTO'’ (ou 
‘’ON...GOSUB") : il aurait fallu, dans 
notre exemple, affecter d'abord à 
chaque touche une valeur (de 1 à 4) 
avant d'utiliser le ‘’ON...GOTO" 
alors que le Pascal permet une utili- 
sation directe, beaucoup plus claire, 
des différentes options. Vous pou- 
vez remarquer que le listing Basic uti- 
lise 5 tests, contre un seul en Pas- 
cal : faites votre choix ! 


LA COMPILATION 


Avant de passer au plus long des 
programmes de cet article, nous 
‘ allons passer en revue les différen- 
tes façons d'exécuter un programme 
avec Turbo-Pascal. Vous allez pour 
cela (si ce n’est déjà fait) taper le 
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premier programme. Vous chargez 
Turbo et les messages d'erreur, 
tapez ‘’W'' pour définir votre fichier 
de travail (appelez-le ‘‘Boucle’’ par 
exemple), puis entrez dans l'éditeur. 
Vous pouvez maintenant recopier 
scrupuleusement les quelques lignes 
du listing 1, en n'oubliant pas les “;"" 
qui sont /ndispensables au Pascal. 
Puis vous sortez de l'éditeur par 
CTRE-K-D. 


Vous disposez alors de plusieurs 
choix quant à l'exécution de votre 
programme. Le Pascal étant un lan- 
gage compilé, il va naturellement fal- 
loir passer votre programme-source 
dans le compilateur. Turbo vous 
offre différentes options de compi- 
lations accessibles à partir du menu 
général par la commande ‘‘0’’. Nous 
Nous allons tester les options 
‘Memory’ et ‘’Com-File’” qui sont 
les plus courantes. Par défaut, Turbo 
compilera votre programme en 
mémoire : il vous suffit d'appuyer 
sur ‘‘C’’ et, si vous n'avez pas com- 
mis d'erreurs, vous récupèrerez la 
main sans problèmes. On vous indi- 
quera la longueur de votre pro- 
gramme en lignes, la longueur du 
code généré en octets (avec les 
adresses de début et de fin), la 
mémoire libre et la place occupée par 
les données. Pour l'exécuter, il suf- 
fit d'appuyer sur ‘’R’’ (vous pouvez 
remarquer que si vous appuyez sur 
R avant d’avoir compilé votre pro- 
gramme, Turbo appellera tout seul le 
compilateur, puis exécutera le code). 
Le problème de cette méthode est 
que la longueur de votre programme 


est très limitée : on dispose de peu 
de mémoire après avoir chargé 
Turbo et les messages d'erreur. L'or- 
dinateur doit en effet stocker à /a 
fois le source et le code. Pour remé- 
dier à ce problème, on peut compi- 
ler le programme sur la disquette en 
sélectionnant l'option ‘’Com-File''. 
La compilation s'effectue alors sur 
disquette sous la forme d'un fichier 
‘* COM" directement exécutable 
sous CP/M sans avoir à charger 
Turbo-Pascal : c'est pas génial, ça ? 
Essayez ces deux méthodes afin de 
bien vous familiariser avec ; elles 
sont valables pour tous les program- 
mes et exemples qui suivront. 


QUELQUES CONSEILS 


— Vérifiez régulièrement les lon- 
gueurs de votre source et des octets 


restant libres. 

— Faites une erreur exprès dans un 
des programmes (par exemple, 
oubliez un ‘‘;'’) et corrigez-la après 
avoir tenté de compiler le source : il 
suffit d'appuyer sur ‘’ESC'' pour 
revenir à l'éditeur, le curseur se trou- 
vant à l'endroit de l'erreur. 

— Soignez la présentation et les 
commentaires (signalés par des [...]) 
dans vos programmes, c'est telle- 
ment plus facile à relire pour 
quelqu'un d'autre et tellement plus 
facile à corriger 1 mois après ! 


LES FICHIERS 


Les listings 4 présentent une mini- 
gestion de carnet d'adresse, l’un en 
Pascal et l’autre en Basic. Si le Loco- 
motive Basic est rapide et relative- 
ment complet au point de vue 
graphismes-sons, il est par contre 
rudimentaire (et même préhistori- 
que !) en ce qui concerne la gestion 
des fichiers par rapport à ce qui se 
fait en Turbo. 

Les instructions dont vous disposez 
en Basic sont OPENIN, OPENOUT, 
CLOSEIN, CLOSEOUT pour l'ouver- 
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LISTING 1 — BASIC LISTING 2 - BASIC 
10 ‘ Calcul d'une somme 
10 ‘ Programme de Boucle 20 ‘ 
20 ‘ 30 J=i 
30 FOR I1=1 TO 10000 40 FOR I=1 TO 10000 
40 NEXT I 90 J=J+i 
50 END 60 NEXT I 


70 FRINT "Fin d'execution — J=";J 


80 END 


Choix multiple 


CLS 

AF=UPFERS (INFEY#) 
IF A$="Q" THEN END 
LOCATE 10,10 


110 GOTO 40 


10 ‘ Carnet d'adresses 


30 MODE 2 

40 LOCATE 30,5: PFRINT'"Carnet d'adresses" 
50 LOCATE 50,63 PRINT "== —— “ 
60 LOCATE 23,10:PRINT "1 - Lecture" 

79 LOCATE S53,13:FRINT "2 - Ecriture" 

80 LOCATE 33,16:FRINT "Q —- Quitter" 

90 a+=UFPFERE#(INFEY#) 

100 IF a$="Q" THEN END 

110 IF (af<>;"1" AND a#$:>"2") THEN 90 
120 ON VAL(a*t) GOSUB 150,710 

150 GOTO 50 


1350 OPENIN "CARNET.DAT" 

160 WHILE NOT EOF 

170 CLS 

180 INFUT #9,nom#t,prenomt,adit,ad?#f,telt 
190 LOCATE 18,5: FRINT'"'Lecture des fiches" 
200 LOCATE 18,6: FRINT'"'=z=z=252zz=z==zez=2=2" 


210 LOCATE 15,10: PRINT'Nom ---------- snom* 
220 LOCATE 15,12: PFRINT'"Frenom ------- “sprenomt 
230 LOCATE 15,14:FRINT'"'Adresse ------ “sadixt 
240 LOCATE 15,16: PRINT" —----- “sad?2# 
250 LOCATE 15,18:PRINT'No de tel ---- “;tel#t 
2640 a$f=INKHEY#:1IF at="" THEN 260 

270 WEND 


280 CLOSEIN 
299 RETURN 


300 

510 CLS 

320 OFENOUT "CARNET,DAT" 
330 INFUT "Nom : ",nom# 


240 1F LEN(nomE)>20 THEN FRINT CHR#(7):GOTO 350 
350 INPUT "Frenom : ",prenomt 

360 IF LEN(prenom#t) >20 THEN FRINT CHR#(7):GOTO 350 
370 INPUT "Adresse 1 : ",adit 

280 IF LEN(ad1#);40 THEN PRINT CHR£(7) :GOTO 370 
390 INFUT "Adresse 2 : ",ad?# 

400 IF LEN(ad2#) >40 THEN FRINT CHR#(7):GOTO 390 
410 INPUT "No de tel : ",tel+# 

420 IF LEN(tel#)*11 THEN FRINT CHR#(7) :GOTO 410 
4350 WRITE #9,nom#,prenomt,adlt,ad?#t,tel# 

440 PRINT 


450 a$=INKEYE:IF a$=" "THEN 320 ELSE IF UPFER#(a#t)<>"Q" THEN 450 


469 CLOSEOUT 
470 RETURN 


IF A#="I"THEN FRINT'HAUT  " 
IF Af="M"THEN FRINT'"'EHAS " 
1F A$="J"THEN PRINT'"GAUCHE" 
100 IF A$="E"THEN PFRINT'"'DROITE" 


ture/fermeture des fichiers d'en- 
trées/sorties, et  PRINT#9, 
WRITE#9, INPUT#9, LINE 
INPUT # 9, EOF... pour l'écriture/lec- 
ture des données : c’est faible ! 
Turbo-Pascal permet la gestion de 
fichiers-texte, de fichiers binaires 
(qui racourcissent la taille des don- 
nées et accélèrent les entrées/sor- 
ties), de fichiers à accès aléatoire ; 
il permet le formatage des données, 
la gestion des erreurs d'l/0, etc. 
L'exemple présenté nous donne 
deux exemples des limitations du 
Basic Amstrad : 

— Pour l'écriture du carnet, vous 
êtes obligé d'entrer tous vos noms 
en une seule fois (on appuie sur la 
barre d'espace pour rentrer un autre 
nom, ou sur ‘’Q’” pour signaler la fin) 
et, si vous voulez rajouter une fiche, 
il vous faudra tout réécrire (il n'existe 
en effet pas de fonction ‘’APPEND"' 
comme en Basic Microsoft pour 
rajouter une fiche dans un fichier 
déjà créé). 

— Ensuite, si vous tentez de lire le 
carnet avant qu'il ne soit créé (ou si 
le fichier ‘’CARNET.DAT'”' ne se 
trouve pas sur la disquette), le pro- 
gramme s'arrête sans possibilité 
d'empêcher cette ‘’plantade“’ qui 
n'est pas considérée comme une 
erreur et ne peut être détournée par 
‘’ON ERROR GOSUB". 


Le programme en Pascal ne fait que 
12 lignes : on définit au préalable 
une procédure de lecture et une 
autre d'écriture (qui se chargera de 
la création et de rajouter des fiches) 
qui sont appelées dans un menu 
général. Il paraît beaucoup plus long 
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que la version Basic, majs comporte 
pas mal de commentaires et l’écri- 
ture est plus aérée (éditeur pleine- 
page oblige !). On y rentre les fiches 
une par une, on peut en rajouter 
n'importe quand, le programme 
détecte l'absence du fichier ‘’CAR- 
NET.DAT""' sur la disquette sans se 
planter. Et tout cela en beaucoup 
moins de temps qu'il n’en faut pour 
écrire cet article ! 

Comme vous le voyez, on peut tout 
faire en Turbo-Pascal et le plus sou- 
vent très facilement, tout en conser- 
vant une véritable structure de pro- 
grammation et une grande rapidité 
d'exécution : quoi de mieux ? 


POUR LES POSSESSEURS DE 6128 
(PETITS VEINARDS |!) 


Vous voulez peut-être installer Turbo 


sous CP/M Plus et récupérer ainsi 
30 ko pour vos programmes au lieu 
de 7,5 ko sous CP/M 2.2 ? Je vous 
comprends très bien ! 

Il vous faudra tout d’abord conser- 
ver une version de Turbo sous 
CP/M 2.2 ‘‘au cas où'’. Ensuite, il 
faut démarrer sous CP/M Plus, met- 
tre votre disquette Turbo et lancer 
TINST.COM qui est l'installateur. 
Appuyer sur ‘’S'’ dans le menu prin- 
cipal et tapez ensuite le numéro. Puis 
sortez de TINST. Votre version de 
Turbo ne fonctionnera maintenant 
que sous CP/M Plus. 


AMIS DU LOTO 


ne gaspillez plus votre mise ! 


Jouez “malin” ayec 
LOTO-INFORMATIC 


Le programme d'analyses, 
de sélections et 
de combinaisons de jeux 


dont vous rêviez pour mettre 
le maximum de chance 
de gagner de votre côté 


Documentation 
+ CADEAU gratuits 


en écrivant, sans tarder à : 


INFORMATIC Applications 
15, rue du Hohwald 
67800 HOENHEIM 


Program Boucle; 


Var _i: Integer; 
Begin 
For ii=1 to 10000 Do 
End. 
LISTING 2 - FASCAL 


Program Calcul _d_une_somme: 


LISTING 3 - PASCAL 
Program Choix _ Multiple: 
Var Touche 3: Char: 
Begin 
CirScr: { efface l'ecran } 
While (Upcase (Touche) <> 
Begin 
Read (kbd,Touche): 
GotoxXY (10,10); 


Case Upcase (Touche) of 


de : Writeln (‘Haut 
‘M: : Writeln (‘Bas 
‘K° : Writeln ( 
“de : Writeln ( 
End: { Fin du Case } 
End; { Fin du While } 
End. { Fin du Programme 
LISTING 4 — PASCAL 


Program Fichier; 


Var 193 Integer; 
Begin 
j:=1; 
For i:=1 to 10000 Do 
ji=j+1l; 
Writeln (‘Fin du Calcul - J=°,;): 
End. © Fin du programme } 


‘a') Do 


{ On donne ici son nom au programme } 


{ On effectue 10 000 fois une boucle vide } 
{ Fin de programme } 


{ On rajoute maintenant une somme 
{ dans le programme. 


{ Boucle 10000 fois sur lui-meme 


{ Affiche un message de fin. 


{ Exemple de la simplicite 
de l'utilisation de choix 
{ multiples dans un prog. 


Les] 


le programme sera execute 
qu'on appuira pas sur ‘O' 


és n 


{ lit le clavier } 


En fonction de la touche 
pressee, on 
"); 

*); 


ss es 


options. 


‘Droite‘):; 
‘Gauche ‘); 


{ Exemple simple de gestion de fichiers 


avec Turbo Pascal 


{ On declare la variable que l'on va utiliser 


} 


+ 


[1 


2} 


> 


se branche dire 
tement sur les differentes 


2 
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LA 


Type Fiches = Record { On definit } 
Nom : String C20]; { le format et } 
Frenom : String C20]; { le contenu des} 
Adressei 1 String [40]; { donnees d'une } 
Adresse? : String C40]: { fiche. } 
No_de_tel : String C11]; 


End; 


Var Fiche : Fiches: { On commence comme } 
Fichier : File of Fiches; { toujours par initialiser)} 
Touche : Char; { les variables utilisees } 
1 : Integer; 


Frocedur e 


Lecture; La procedure LECTURE que l'on à 
{ cree maintenant va s'occuper } 
Begin { entierement de la lecture du > 
CilrScry { carnet d'adresses sauve dans le } 
Assign (Fichier ,'CARNET.DAT'); { fichier CARNET.DAT } 
{#1-} Reset (Fichier) {#1+}; 
1f (IOresult <> O0) then 
Begin 
GotoxXY (10,24): 
Writeln (‘FICHIER NON CREE. ‘): { On verifie ici l'existence sur } 
For 1:=1 to 10000 do Eegin End; { la disquette du carnet } 
Exit; 


End; € of If } 


While not EOF (Fichier) do { On va afficher successivement } 
Begin { toutes les fiches du debut » 
Cirscr:; { jusqu'a la fin du fichier > 


Read (Fichier ,Fiche); 
With Fiche do 


Begin 

GotoXY (18,5) ; Writeln (‘Lecture des fiches’): 

GotoXY (18,6) ; Writeln (‘'=====z==s=s===2zzz"); 

GotoXY (15,10): Writeln C'Nom ---------- Nom); 
GotoXY (15,12); Writeln (‘Prenom ------- ", Prenom); 
GotoXY (15,14); Writeln (‘Adresse ------ ‘,Adressel): 
GotoXY (15,16)3 Writeln € —----—- ",Adresse?2); 
GotoXY (15,18); Writeln (‘No de tel ---- ‘,No_de_tel): 


End; €{ of With : 
While not Keÿpressed do Begin End: 
End; © of While >} 
Close (Fichier): 
End; © of PFrodedure } 


Procedure Ecriture: { De meme la procedure ECRITURE > 
{ se charge du rajout d'une fiche } 
Begin { ou de la creation du carnet > 
ClrScr; 
Assign (Fichier ,'CARNET.DAT'); 
{$1-: Reset (Fichier) {#1+2: { On verifie que CARNET existe: 
1f (IOresult<#:0) Then Rewrite (Fichier); { sinon on le cree. } 
Seek (Fichier ,Filesize(Fichier)): 
With Fiche do 
Begin . 
Write (‘Nom : *°)s Readln (Nom): { On rentre les donnees } 
Write (‘Prenom : ‘); Readln (Prenom): { dans l'ordinateur 3 


Write (‘’Adressel ‘3 Readln (Adressel): 
Write (‘'Adresse2 ‘3; Readln (Adresse?2); 
Write (‘No_de_tel : ‘’): Readln (No_de_tel): 
End; © of With } 
Write (Fichier ,Fiche);: { On inscrit la fiche dans } 
Close (Fichier); { le fichier 
End; { of Procedure } 


Procedure Menu; 


Begin { Affiche tout simplement} 
ClrScr; { le menu du programme. } 
GotoXY (30,5): UWriteln (‘Carnet d''adresses"'): 

GotoXY (30,6); UWriteln ('------———————--—- "T3 


GotoXY (33,10); Writeln (‘1 - Lecture‘); 

GotoXY (33,13); Writeln (‘2 - Ecriture‘); 

GotoXY (33,16); Writeln (‘O - Quitter‘); 

GotoxY (1,1); ge 
End; { of Procedure } 
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Lo 2=2-===2==-=====2=-000000000==========2222222 + 


a 


; { C'est ici que commence veritablement le programme : 
Il ne fait que 12 lignes ! 


Eegin 


While (1=1) do 


Begin 
Menu: 
While (Not Feypressed) do Begin End; {Teste si une touche .est pressee} 
Read (KHbd,Touche); 
If (Upcase (Touche)="0") Then Exit; » 
Case Touche of 
°1” s: Lecture: { Envoie aux deux procedures } 
"2" s Ecriture; { precedemment crees 3 
End; {© of Case ë 


End; { of While : 


+ 


End. Ÿ Fin du programme } 


EEE < 


PARTICIPEZ A CPC ! 


Remplissez soigneusement ce coupon et joignez-le à votre programme, sur cassette ou sur disquette. Envoyez le tout à : 


CPC 
La Haie de Pan 
35170 BRUZ 

Le programmeur : 
Nom : Prénom : Age : 
Adresse complète : 
Le programme : : 
Nom : Catégorie : [|] Jeu [] Utilitaire [] Educatif 
Taille : Périphériques utilisés : 


Support : 


Compatibilité (testée) avec : [] 464 [] 664 [] 6128 [1 PCW 8256 
[] PC 1512 [] PCW 8512 


Attestation sur l'honneur 


Je soussigné, , déclare être l'auteur du programme ci-joint et ne l'avoir jamais proposé 
à une autre revue. 


Le : 1 / à : 


Signature : 
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100% Langage Machine 


Editeur +Copieur+Exploreur p nb 
(LUE 


Fenêtres & Menus Déroulants ex @UX qua V 
U Un Editeur secteur unique qui vous 
permet de visualiser et de modifier 
L’ £gpDITE Le contenu de toute disquette, 


qu'elle soit protégée ou non. 


Quatre modes d'édition combinant Ascii, hexa, décimal, octal, binaire. 


Des capacités exceptionnelles que vous pouvez exploiter immédiatement : 
e Désassemblage direct des programmes en Langage Machine 
e Listage automatique des programmes Basic 
e Les outils de bureau : ciseaux, colle, calculatrice mathématique 


Toutes les possibilités à La portée du débutant comme de l'expert : 
e Récupérer une disquette endomagée ou un programme effacé 
(: Explorer un directory, Le reparer, le modifier 
e Localiser des fichiers, les cacher, les visualiser, les modifier 


Comme l'Editeur, il reconnait 99 pistes, toutes pro a, le 

. % A A à ; ticle ke 3 je 
Les densites d'écriture, les pistes déformatées, Les SRE 
secteurs non standard, effacés ou de taille anormale. GTS ue 


Des performances inédites à votre service : 

à : 2 ; Re un 
e Réparation automatique des secteurs endomagés Sgghres mr rite : : | 
e Gestion automatique des extensions mémoire Sn nm 


Enfin la copie de sauvegarde pour QUES vos 
CcOPIEU disquettes (et cassettes) protégées où pas. 


e Une fonction catalogue qui permet de copier des 
fichiers séparément sur cassette ou disquette. 


Voyage au centre de la disquette... 
RE { JR L'Exploreur de Discology fournit toutes 
les informations sur la disquette 


"EXPLO ot 
L Formatage, densité d'écriture, caractéristiques des 


secteurs, secteurs "plantés", plan d'occcupation des 
fichiers sur la disquette. 


Un outil passionnant pour découvrir tous Les 
secrets de vos disquettes et du controleur disque. 


Pour tous les "cracks'" de l'Amstrad et ceux qui 
veulent le devenir. 


Discology est disponible sur disquette pour Amstrad CPC chez tous les très bons revendeurs. Vous pouvez aussi Le commander 
directement sans frais de port supplémentaires à : MERIDIEN Informatique - 11, rue Léandri - 83100 Toulon 

e Master Save est toujours disponible au prix de 190 F. Il reprend les caractéristiques du Copieur de Disquette de Discology 
e Si vous désirez recevoir Discology et que vous possédez déja Master Save, vous ne payez que La différence. 


© JE DESIRE RECEVOIR DISCOLOGY AU PRIX DE 350 F 
© JE DESIRE RECEVOIR MASTER SAVE AU PRIX DE 190 F 
O JE POSSEDE DEJA MASTER SAVE ET JE DESIRE RECEVOIR DISCOLOGY. JE JOINS MA DISQUETTE MASTER SAVE ET JE NE PAYE QUE 160 F 


MON REGLEMENT : © CHEQUE QUE JE JOINS (LE PORT EST GRATUIT) © CONTRE REMBOURSEMENT (J'AJOUTE 25 F DE FRAIS DE PORT) 


NOM : PRENOM : 
ADRESSE : 
CODE POSTAL : VILLE : TEL (facultatif) : 


A retourner à : MERIDIEN Informatique - 11, rue Léandri - 83100 Toulon 


TRADAMUSE 


Michel PARISOT 


3 voies : vous écrivez vos compositions sur les portées qui s’af- 


6 tradamuse est un logiciel de création musicale polyphonique 


fichent à l’écran, et le programme se charge d'exécuter votre 


chef-d'œuvre. 


FONCTIONNEMENT 

Stradamuse propose cinq options acces- 
sibles depuis le menu qui s'affiche quand 
on appuie sur la touche ‘’M"'. 

1. Ecoute : 

— on peut écouter chaque voie séparé- 
ment ou les 3 voies simultanément ; 
— avant de jouer les 3 voies simultané- 
ment, le programme calcule la synchro- 
nisation des canaux, ce qui peut prendre 
un certain temps. 

2. Ecriture : 

e Ecrire une note : placez * avec les 
touches du curseur à la hauteur voulue, 
tapez ENTER, choisissez la durée et les 
altérations éventuelles, validez avec 
COPY, tapez ENTER. 

e Effacer une note : placez * avec les 
touches du curseur sur la note à suppri- 
mer, tapez DEL. 

° Insérer une note : placez * avec les 
touches du curseur sur la note devant 
laquelle doit se faire l'insertion, à la hau- 
teur voulue, tapez ENTER, choisissez la 
durée et les altérations éventuelles, vali- 
dez avec COPY, tapez ENTER. 

° changer de page : CTRL— ou CTRL- 


* 


Remarque : lorsque le nombre de notes 
en mémoire est important, il peut arriver 
que l’Amstrad se bloque, le temps de 
réorganiser sa mémoire. 

3 Fin : cette option permet d'accéder à 
une liste des notes, des durées et de 
l'état du canal pour chaque note. Vous 
pourrez ainsi récupérer vos chefs- 
d'œuvre pour les utiliser dans d’autres 
programmes. 

4 Sauvegarde 

5 Chargement 


Remarques : l'écriture se fait en clé de 


sol sur les 3 voies, mais la voie 3 est 
jouée un octave plus bas. 
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A 

30 4 STRADAMUSE % 
A 
VA 


40 ‘ “ 
30 (0) 1986 A 
60 ‘* VA 
70 ‘% MICHEL FARISOT 2 
80 ‘% % 


DO ALAAA AAA AAA LA LAALLLAUT 

100 ON ERROR GOTO 1010 

110 DEFINT a-x 

120 ENV 1,2,7,1,14,-1,20 

130 ENT -1,1,-1,8,1,1,8 

140 ff=l:page=1: MODE 2 

120 KEY 138,"MODE 2:list'"4+CHR# (1%) 

160 INK Q,3:INH 1,3%: BORDER *% 

170 FOR i=7 TO 15:LOCATE 18,i:FPRINT STRI 
NG# (46,233) :NEXT is INK 1,15 

171 FOR isi TO 1000: NEXT ài 

180 FOR i=18 TO 63%:FOR j=7 TO 15:LOCATE 
i,):READ a: PRINT CHR#(a):NEXT j,i 


DATA 


DATA 
DATA 


DA\T A 


DATA 


DATA 


DAT 6 


DATA 


150,149,149,149,147,22,32,150,1 


Res rs 
DE ET | 


154,42,22,52,154, 154,154 


154,150,149,147,154,32,22,154,1 


154,154,%2,154,154,22,39,154,15 
154,154,32,154,154,32,32,154,15| 
154,154,32,154,156,149,149,15S3, 
15 22,32,22,30,15 


DATA 32,32 
DATA 5 


, 
DATA ue 


DATA 


s1 


DATA LE 


DAAT A EE 


DATA 


DATA 
DATA ie 


151,149,149, 149, 149,14 


Lan ac der) 
ont M 9 Me ge DE] 


32,32,156,145,32,32 


RES PS TS ES 7) “À 
PC PER CRE CRE ETS 32 


32,150,32,150,149, + a 
32,154,32,154,32,32,154 


RES ," 
32,186,149, 157,149, 149,15 


Re ae le der er de ec er ec ) 
sont dem Mt les 0 tent ts 0 ut ue tot fe 0 Say re 


ses 100,149,149,149,149,14) 


DATA 22,52,232,154,5%2,32,22,32,154 
DATA %2,149,149,157,149,149,149,149, 
DATA 32,%2,52,%2,32,32,32,32,32 

DATA %2,52,%2,150,32,150,149,149,147 
DATA 32,32,32,154,22,154,52,32,154 
DATA 32,32,32,156,149,157,149,149,1 
DATA 32,32,32,32,32,32,32,32,32 

DATA 32,32,50,150,149,149,149,149,14 


DATA 


HU 4 a 9 tue pd DA y eh y RU y QU M pt 
Û Û Û Û pu 9 u Û 


DATA %2,32,32,158,149,149,149,149,14 
DATA 32,52,32,154,32,22,32,22,29 
DATA 32,32,32,156,149,149,149,149,14 
DATA 32,52,32,32,22,22,22,32,32 
DATA 32,32,3,148,149,149,149,149,14 
DATA 32,%2,37,32,22,32,22,32,154 
DATA 32,32,32,148,149,149,149,149,15 
DATA 32,32,32,32,32,22,32,22,32 
DATA 32,32,32,150,149,147,22,32,146 


STRADAMUSE 


60 DATA EX 2,14, a, 2, 154 
90 DATA GE  : 1473 15 


à Re : ' nu de 

650 LOCATE LE DS: PRINT" ENTER % 
66Q af=INÉEVE 
670 IF INÉEY (IG) HINÉEY (6) #0 AND page“l T 
HEN GOSUR 1060 
680 IF INEHEY (18) #INHEY (6) 9 AND pages T 
HEN GOSUR 1150 
690 IF INEHEY (18) #INÉEY (6) xQ AND pages T 
HEN GOSUER 1190 
7Q0 IF INREY (18) #INÉEY (6) #0 AND pagez4 T 
HEN  GOSUR € 
710 IF INEEY (18) #INKEY (6) 0 AND pages 1 
HEN  pace 
720 IF INEEY(79)&0 THEN KUN'stracil 
780 READ a,b,cs: SOUND a,b,cx1, 5,0, 1,1 
740 GOTO 660 
7e DATA 49,1%27,20,4%,169,80,20,4%0,%0,. 

134,20, 12, 30 se : 
760 DATA 1,115,40,49, lue, da. 42,127, 60,26 
1906,40,1 .84,20,25,95,20, 12,4160,40 
77@ DATA 1, 106,20,49,11%,%0, 42,60, 60,26 
100,40 ,1, 7 sx 20,5%,154,20,12,%%8, 40 
780 DATA ,127,20,49,1%4,20,4%,115,40,268 
ne 7,20,1%,212,20 
1790 DATA 49,11%#,20, 42,154, 40,:6,190,40, 


,169,20,49, 127,20,42,169, Sa 28, 538, 20 
BOU DATA 22,174,20,12,2800,20,2%,127,20,1 
2,330,40,1,113,20, 49, ET 42 ,127,60 
g1@ DATA 26,506,40,1,84,20,%3,95,20,12,% 
18,40,1,106,20,49,113,20,4%,80,40 

820 DATA ?8,:00,40,1,127,70,49,84,80,4%, 
154,120,26,238,40,4,13%4,20,4,127,2 


830 DATA %%,84,40, 12,226,40, 49,11%,20,47 
.134,80,28,1068,20,%5,127,20, 12,190,20 
840 DATA 22,115,20,12,166,40,1,106,20,49 
Re 80,28,510, 40,1 re 


06,20, 42,84, 180,28 ,330, 40,1,115,2 

860 DATA %3,106,20, 12,506, 40,1,112,20,49 

,127,20,42,106,40,28,168,20 

970 DATA 34%,11%,20,12,190,20,49,106,20,4 

2,127,40,28,106,40,1,95,20, 49,84,20 

880 DATA 42,106, 80, 26,7 254,40,1,106,20,%3 
95,20,12,126,40,1,84,20, 49 80,20 

898 DATA 42 ,62,80,28,260, 40,1,63,20,35,7 

1,20,12,450,40,1,80,20,49,84,20 

900 DATA 42,71,80,26,568,40,1,95,20,33,68 

4,20,12,426,40,1,95,20,49, 106,20 

910 DATA 42,84,40,28,7 2,20,33,95,20, 12, 

226,20,49,84,20,42,106,40,28,212,40 

920 DATA 1,80,20,49,71,20,42,84,80,28,28 
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4,80,1,84,20,1,100,20,1,95,70,49,84,%0 
95 DATA se ,506,40,1,60,20,%%, 
3,70,17,450,40,1 0,49,80,20 
940 DATA 42 127 Fe Ds He 
90,20 ,42,95,40,2 
950 DATA 49,95, 20 
80,20, 71 20, 
960 DATE 
168,40, 
970 DATA "2 
980 DATA 
RU, 
590 DATA 


84,20, D 0 


“nr 


,40,2,106, 10, Li 3 1 
154,70, 
28,506 ,40, 4, 


en 2 


4h AND S0Q CD) £ 54 AND SG 


fs fps 


4} THEN 


THEN ENV 
660 

LOSC | i: TO bi LOCATE 
1090 WINDOW 9,70,11,% e C = 

1100 PRINT "Vous entendez em ce moment ur 
it de La Suite en si mineurde Jean 


1120 PRINT: FECINTUSTASDANUSE per met 

mposer sur Les trois voies du Le Ait 

secure Lui meme La sync hr omis ati 

C'AMALUO  ! 

11 Q PRINT: FARINTUIT permet aussi de corr 
Je VOS Compositions en APP ATeNEe À 

PUS EF AT OÙ ajoutant des 


1140 FARINTS FRINT SFC CS) "« ENTER ‘RETURN | 


Mocles 


LLOQ CLS: FARINT: FARINT 
d'emploi —rpages. 
ECINT 8 FRINTS FRINT" Ecrire une note 
cer * avec les touches du curseur 
hauteur voulue, tapez enter ,chois 
La duree et les alte- rations eve 
Les, validez avec copy, tapez enter 


1170 FARINT es FAINTSs PRINT! Effacer une not 
ee 1 Placez x avec Les touches du curseur 
sur La note à US tanez del," 
1190 FRINT:FARINT SPC CE6) MÉENTER "8 RETURN 
1190 CLS s PRINT se FRINT SPC C0) Mo me Mocies 

d'emploi tr Dagesd4 

1200 FRINT:FRINT'e Tnserer une note +: FI 
aACer * avec les touches du curseur sur" 
PRINT" La note devant laquelle doit s 
&e faire l'insertion, à La haut": 
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ep 42,134,40,28,) 
30, . 


ait à @te compile pl 


{Moi Si 


RTAT) . 27,62 ,42 ques 
26, 20 1270 FRINT: 


| 
| 


LS10 FRINT 


cri EU € 


bass 
160 FARINTS FERTNT IL m'y a 


re a La 
Lonma Lit 


Le 


\ 


Lea dure 


INT Charger 
Moou Ctrl "CHEG 


INT! Deplacer % 


5 CHIFGE CAL) M, CCHEGE C4) ! 


voir "SEC CIO) ME 


(cles ma j 
CIM € 


SENTER® 


Sur Les 
ce: He 


ur) mais 


Ti 


notes pour les jouer dar 
Gamme, 
INT: PRINT SFC (10) CENTER pour 


DEL pour La suite" 


20 A STAR 


A D A MUS EE C 1) 


AU METIUL 


et. 


Es PUJEEN 


ru 


Rire 
MC 


possible de recupere 


HUM 


re 


ET UEN 


2 
" 


50 Us La a Va La a Va Va Pa a Va a Va D La a a a a Va a Va a a a a Va La 


6Q DEFINT 


70 ENV 1,2,7,1, 
BA ENV %,1,0,2,% 
90 ENV %,1 api 


100 ENT -1, 
110 ENT -? 


aTE 


d 


D,1,1 


3 L 

Li \ 
il 8,1.1.8 
—1,6,1,1,6 


9 
120 ENT -3,1,0,7,1,-1,6,1,1,6 


150 SYMEOL. 
140 SYMEOL. 
150 SYMEOL. 
160 SYMEOL. 
170 SYMEOL. 
180 SYMEOL. 
4,197 

190 SYMEOL. 


AF 


TER 216 
a RTE 
@ 

re 
0 Me dre 
25 


5,257,248, 


te ve 
Fu 


r 
Es 


res 
AN 


GYMEOL PE, 
on 

SYMEOL 
SYMEOL. 
,159 

2EQ SYMEOL ® 
40 

40 SYMEOL. 
260 SYMEUL. 


197,224,96,117,117,240, 


lateral as 
2,120,176,176, 


128,1%1,1 


6 y 4 y 
7,%,0,: 


ee SYMECL. RE6, 
31,199 


1,246,7 


259 
240,5 


224, 


128,0, ,0,0,0,254 
280 SYMEOL ,252 


nl4 
y Lu 
290 SYMEAOL 241,148, 187,121,120,120,1#4,1 


We ri ete 1 Lo Lam L #4 
AU à a ke) y 


:5,195,275,204,240,2 


48, 15 
#10 SYMEOL 
12,112 
420 SYMEOL 244 
@ SYMEOL. 
40 SYMBOL. 
260 SYMEOL. 
g,128 
#60 SYMEOL. 
GYMECIL. 
n SYMEOL. 
128 
SYMEOL 251,%,707370 7520891 
408 SYMEBOL. 252 :207,007,207, 3,125 
,248 


245,120,192,274,740,240,112,1 


br sis lo lSe ral 

245,51,0.0,129,192,240,255,15 
246,28,28,14,14 Hate 
247,112,112,112,96,192, 15 


+ 
. 


= 


CCE TT 


128,128, 1 


248 , 2,0,0,0,0,0,0 
+5 


RP TE PETER PPS 


260,120,120,128,1*68, 


AL SYMEOL 255, 120,120,120,1260, 1260 


420 SYMEOL. 254,240 
AO CLE CL) ECMRE CHR) ACHRE C6) +C 
Qt 1R # Fi ee “ : 


CHARGE C7) 
CRE) +CHFGE CES 1) 
+CHRE C2 RD) 

450 CLS CE) SCHRE C2SF) <CHRE (254) +CHRE C2) 
HCMRGE Ci ) 

460 C1 # (4) = ES CMHRE CRE) +CHEGE CAEG) +CHRE CELS9) 
A7O clé CS) BCMRE (240) +CHRE C241) +CHREÆ (242) 
HCMFCE CAE) 

AND ci C6) mCMRE (44) +CHRGE C245) +CHRE C246 ) 
+CHEGE C247) 

ADD cl C7) mCMRE CE) HCHRE C2468) +CHRE C249) + 
CHE (250) 

HO CL CG) mCMRE CE 
CHIFCE CE) 

MAD clé CO) mCOMRE CHR) +<CHRE CES) +CHRGE (254) 
620 EHORDER SIN QE: INE 1,5 
MO FOKE SH8D1,0:FORE REHODE:,268 
640 KEY 128,'"speed key 20,%:cls: 
FE C1) 

660 SPEED KEY 10,10 

60 MODE 2% 

570 LOCATÉE 668,1:FRINT CHR (149) 3 "XSTKADA 
MUS SEX"; CHR (149) 


2) CHR CSL) +CMRE CES) + 


list'"'+CH 


241580 LOCATE 
[FE (164) 5" 


4 | 610 


STRADAMUSE 


66,28 PRINT CHE CL 49) 3 UX 
1986 X''a CHIRE C1 49) 

590 LOCATE 66,2%: FPARINT CHFGE (149) à 
END X "3 CIRE C1 47) 

GA LOCATE 66,48 FEINT 
10,154) ; CHR# (1 33) 
él FOR il TO 4: 
4% ) 

620 LOCATE 
650 LOCATE 
à L94) CHEGE CI 
640 FOR ii 
ÆC149): 

65 LOCATE: 
660 LOCATE 
63, 134) CHEG 
670 FO 
680 
690 
700 
710 
720 
730 
740 
730 
760 
770 
780 
790 
600 


Ma 


"X'M': M 


CHEGE C1 47) 3 STRING € 


LOCATE 1, is FARINT  CHRGE CI 


168,15 FAKINT 


FECINT 


CHFGE CLASS NEXT 
CHEGE C1 47) STÉCINGEÆ CLÉ 


He LOCATE L'idées FARINT CHA 


SM, i+ 


BÉFCINT CEE CL 49) NE XT 
INT CHR C1 GO) STRING C7 


EECINT 
NE XT 


i+7 
STRINGE (&, 


LOCATE 1, 


PEUINT 
NEXT à 
FOR isl 
LOCATE 
PRINT 
NEXT à 
LOCATE 1,12 FPRINT 
WINDOW 9,80,6,15 
320 WINDOW#1I,2,7 
BE WINDOW#®,2,17,14 

840 WINDOWHE,10,69,16,21 

950 FAPER#L, Li: PEN# 1,0: CLS#1 

860 PAPER, 1: PENK2 , 0: CLE#? 

970 FAPERKS, Le FEN#E, 0 

880 LOCATEH®, 1,4: FRINTHS, "EFFACER: 
890 LOCATEH®, 1,2%: PRINTHS, "ECRIRE 


Hu 


TO 4 
1,it+8 
CHR (132) 


CHIFGE Ca) CMAEGE (0) 


DEL." 
ENTER 


900 LOCATEHS, 1,2: FPRINTAHE, CANAL 5 "3 
910 LOCATE#HS, 1, 1e PRINTHE, "FAGE s 1" 
920 ORIGIN 64,0 

920 SYMHOL. 216,224,224, 4 RE 7 9 DT 3 D) gd 


L-h4 Len Lan LA 
29 y 2e 


940 SYMEOL. 
950 SYMEOL 
A »240 

960 SYMEOL 
970 SYMEOL. 
980 SYMEOL. 
990 SYMEOL. 
15,113 

1000 SYMEOL. 
Q 

1010 SYMEOL. 
112,112 
1020 SYMEOL. 


717,0,0,0,0,128,192,192,197 
218,195,199,206,%48,195,199,2 


219,144,48,96,19®,178 
220,0,0,0,0,6%,6%,6%,6% 
221,0,0,0 10:252,282,250,287 
2221120, 126,115,11%,124,119,1 


223,0,0,128,192,96,48,152,20 


noa,112,119,119, 110,108, 148, 


225,224,224,224,192,198 


65 


SYMEOL. 


SYMEOL. 


197 
1050 SYMEOL. 
IR 118 

1060 SYMEOL. 


1070 
1060 
Pa 
1090 SYMEUL. 
240,206 

SV MEL. 


SYMEOL. 
SYMEOL. 


SYMEOL. 


GYMECIL. 
., 224 

GYMEOL. 
SYMEOL. 


SYMEOL. 
SYMEOL. 


SYMEOL. 


SYMECL. 
SYMEOL. 
SYMEHOL. 


) SYMEOL. 
116 

à SYMEOL. 
SYMEOL 
1250 SYMEOL 
1260 SYMEOL. 
48,240 
1270 SYMEOL 
1280 SYMEOL 
1290 SYMEOL 
192 

1500 SYMEOL. 
1%10 SYMEOL. 
,192 

1220 LOCATE 
#0 FOR 


SYMEOL 


226,0.,0,6%,255,255,295,255,6 
2H7,117,112,240,240,240,740, 
Den DDASS IE DITES, 


229,0,0,6%, 


250,0,0,192,48,11 
231 


2,240,19% 


.117.,112,240,48,117,240,1 


LOS ss, 


198,704,716, 


72,19%,19%, 


224, 


er er DL) Le Frs Z 
.224,224,774,224,774,274, 
nr6,0,0,192,240,240,240,19% 

26,61.,0,1,3,7 


114,195,129 


241,0,128,12%1,127,28,56,11?, 


242.121,356,12, 24 
24%,178 
244,0,0,6%,240 


245,120,124,118,115,115%,112, 


246,0,0,0,0,192,96,48,24 
247,24,24,24,48,96 
248,0,0,0,19%,96,48,48,48 
249,274,224,224,227,230,2%6, 
250,40,96,197,176 
2e1,0,0,0,0,0,1,%,0 


252,49,24,17,%0,124,240,206, 


255,0,0,0,1,%,%,1 


254,96,460,24,240,196,120,148 [27 


LL PRINT CHEGE CES) + CHR (1) 


i=g TO 4 


13540 MOVE 0,206+1i*x16:DRAN 976,208+i%x16 


1:90 NEXT i 
1560 ROKDER 


1370 LOCATE#S,15, 


SsINE O,34INE 1,15 
2: PRINTHS ,CHRE (150) STRI 


NG+ (35, 154) CHR# (156) 
1380 LOCATE#S,15,3: PRINT#S, CHRS (149) "CHA 


AGEMENT DE LA 


9) 


SUITE DU FROGRAMMEUCHREÆ CL 4 


1590 LOCATEHS,15,43: PRINTHES,CHRS# (147) STKI 


TE 


DRE | , 


NGE ( 


154) CHRE (155 


1400 KUN'"'str aclam 


66 


ves4t,19%,198,2 1 


LE), dt Ci 


Mina uinjuj ue uni nu ui ni nu ini nai vus uinins 
fa La La Ée La La La da La a La Pa Le La Le La a a La du da Ve fn da Lu 


6 A SG F A DAMU ; 
4 A “a 
Ta Po Pa Pa a Pa a Pa a Pa PP Pa PP a a Pa a Pa a Va a a Pa 


OFENQUT "bidon": MEMORY HIMEM- 13: CLOSEOU 


rl 
Te] 
ï 


DEFINT a 
DIM noëcCz 


10) , ca Ci, 5606), de (17) 
no), an CE), mp CE) ,n CH) y 
5), d CE) 
FN son (Cu) ROUND (1256467 (446% (2° 
i+tiu-1@) /125))0)) 

116 FOR he TO 17:READ de Ch)sNEXT h 
129 DATA -2,6,1,7,5,6,8,106,1%,15,15,1 
5,20,22,24,29,27 

1264 FOR 
Lino Cu) és nm (ui ls NEXT 
149 canel:syned: fine® 
noÿ(1,0)="Xtenob (2, Get Xtrnos CE, 6)" 


7,4 


en 


[a 


176 
186 
196 WHILE INFEVS< 5%": WEND: WHILE 
s WEND 

246 IF INÉEY (6) =6 
ÿ(can)+1:GOSUR #46 
#16 IF INEEY (2) =6 
can)-l: GOSUER 546 
3 IF INÉEY(8)=0 
can): GOSUR 16 
254 IF INKHEY (1) =6 
# (can)i+ï: GOSUE 316 
4 IF INÉEY(1)=1268 THEN GOSUER 266: x(can 
)=x(can)+72: xme=x (can) :page(can)=page (can 
>) +1: GOSUR 216: GOSUR 426: x (can) =xm: GOSUE 
E&E 
296 IF INÉEY(8)=128 AND x(can)z=72 THEN 
GOSUE 2466: »x(can)=x (can) -72: xm=x (can) :pag 
e(can)=page(can)-1:GOSUR 316: GOSUR 426: x 
(can)=x«m: GOSUR 366 
26% IF INÉEY(18)=6 
274 IF INFEY(E8)=0 
284 IF INÉEY(79)=6 
299 TAG:GOTO 196 
ES 


TAG: GOSUER Zé6 


THEN GOSUE 


THEN 


THEN 


THEN GOSUR 66 x 


THEN GOSUR 486 
THEN GOTO 2566 
THEN GOSUR 22660 


F14 IF «(can)i1i THEN x(can)=1: SOUND 1,54 
4,4: 6070 366 

726 IF x(can) MOD 72#1 AND INEEY(1)=6 TH 

EN “m=x (can): SOUND 1,56,4,4:page(can)=pa 
ge (can) +1: GOSUR 426%: x (can) =x 

EF@G IF x(can) MOD 72=76 AND INEEY(8)3=6 T 
HEN xmz=x (can) :SOUND 1,56,4,4:page(can)=p 


age (can)-1:GOSUE Abrk ie ani=im 
F4 IF y(can):46 
56, 4,4 

296 IF y(can)<ie 
369, 4,4 

Hé MOVE  Cx 
ENT 

274% RETURN 
NT 15) 

296 FOR i=% TO 4: MOVE 6,268+1x16: DRAW 57 
b, 298+1%16 

46% NEXT is: RETURN 

416 

426 TAGOFF:LOCATE 1,1: PRINT CHRS$ (25) +CHR 
(6) 


DT 


5 THEN y(can)=23%:SOUND 1, 


(can) MOD 72)+#8,y(can)x+8-2:FR 


AE CLS: GOSUR 396: GOSUR 1796 

446 LOCATEHZ, 1, 1: FRINT#E, "FAGE : "SUSIN 
G"#4# "3 page (Can); 

456 LOCATEHZS, 1,2: FRINTH#2, "CANAL 5 "SCHK 


& (18); STRINGS (can, "I"); 
468 LOCATE 1,1:PRINT CHR$#(23 
47% TAG: RETURN 

486 

498 TAGOFF : 
EH) +CHRS (6) 

56% LOCATE#1,1,1:FRINT#1, SFC (15) CHRS# (Z3E 
SPC (14) CHARS (222) CHRS (225) SFC CH); 

516 PRINT#1,CHRS (245) CHR$ (246) GFC (3) CHRS 
(228) SPC (4) CHRS (228) SPC (8) CHRS (240) 

526 PRINT#1,CHRS (241) SPC CH) CHRS (237) CHRS 
(228) SPC C5) CHRS (251) CHRS (282) SPC (B) 3 

SO FRINTH#1,CHRS (226) CHARS (221) 

546 LOCATEH1, 1,2: PRINT#1, SPC (8) CHR$ (35)S 
FC (4) CHRS (222) SPC (4) CHRS (144) SPC (4) ; 

5606 PRINT#1,CHRS (226) CHR$ (227) CHR$# (225) S 
FC (2) CHARS (226) CHRS (227) CHRS (247) $ 

566 PRINT#1, SPC (2) CHRS (226) CHRS (227) SFC( 
5) CHRS (229) CHRS (231) SFC (3) CHR$ (229) ; 

576 PRINT#1,CHRS (226) SPC (2) CHRS$ (242) CHRS 
(242) SPC C2) CHRS (229) SPC (4) CHRS (255) ; 

586 PRINT#1,CHRS (254) SPC C5) CHRS (220) CHR# 
(221) 

596 LOCATE#1,73,1:PRINT#1, "ENTER" 


) +CHRS (1) 


CLS#1:LOCATE 1,1:FRINT CHRS$ (CE 


848 LOCATE#1,74,2:FRINT#i, "COFY" 

61% LOCATE#1,73,3%:PRINT#1, "ME 5 

Be arr alt=: dues: de cg="" 

56 LOCATE#1, 4,2%: FRINT#I, "MTS 

64% WHILE INÉEVS 2"; WEND: WHILE INÉEY#=" 
!s WEND 

65% IF INEEY(1)=@ THEN LOCATE#I,a,3:FRIN 


T#1," “ssara+SsIF a=74 THEN ax9 


THEN y (can) =46@: SOUND ji, 


&6e 


IF INÉEY(8)=6 THEN LOCATE#KI,a,Z%:FRIN 


T#1i," Mssa=za-S:1F a=4 THEN a=69 

87@ IF INHEY (9) = THEN GOSUE 716 

684 IF INÉEY(18)=4 THEN GOSUR 1216: CLS#1 
: RETURN 

69% GOTO 476 

766 

719 GOSUR 112G:ON C(a+1)/5)-1 GOTO 754,7 
89,83:6,876,9066,926,946,9866,980,1616,16%20 
,1956,1976,1686 

726 

736 IF tlari THEN RETURN 

748 IF alt= THEN alt=ls: FRINT#1,"XH#X"5; 2: 
ETURN | 

756 IF alt=1i THEN alt=6:FRINT#I, "HMS: RET 
URN 

76% RETURN 

776 

78% IF tlazi THEN RETURN 


796 IF alt= THEN 
CEE) "X03 8 RETURN 
866 IF alt=-1 THEN alt=: FRINT#1,CHRS CRE 
2) 3: RETURN 

816 RETURN 

826 
ERT) 
846 
URN 
856 
N 
866 
876 IF pt=1il THEN RETURN 

889 dé=CHARS (226) +CHR$S (227) : dd=i: GOSUR 1i 
960: RETURN 

8964 

96 dé=CHRg$ (276) +CHRS (227) s: dd=2: GOSUR 11 
6: RETURN 

916 

O6 dé=CHR$ (226) +CHR$ (227) : dd=4: GOSUR 11 
6: RETURN 

956 

O4 dé=CHRS$ (229) +CHR$ (2351): dd=8: GOSUR li 
G6: RETURN 

956 

D dé=CHRS (229) +CHRS (256) : dd=ié: GOSUR i 
196: RETURN 

976 

984 IF pt=il THEN RETURN 

996 dé=CHRS$ (242) +CHR$ (2475) :dd=17: GOSUR 1 
196: RETURN 

1966 

1916 dé=CHRS (2E9) +" 
ETURN 

1926 

1926 dé=CHRS# (25 
1196: RETURN 
1946 

1956 dé=CHRS (226) +CHRS$ (221) : dd=87: GOSUR 


67 


alt=-1l: FRINT#1, "X"CHRS 


IF duzi OR dur17 THEN RETURN 
IF pt=& THEN pt=l:FRINT#1,"X.X"3:RET 


IF pt=1 THEN pt=6:PRINT#1,". "3: RETUR 


":dd=27: GOSUR 1196: 


5) +<CHRS (254) : dd=47: GOSUE 


dg=" 


5 RETURN 


1119 du=dd:FRINT#1, 
26: c$é=d$: RETURN 
* LOCATE#HI1,a,2: 
1156 IF aa=9 


1196 ttz=a: 
FRINT#1,c#; 
AD arttsaasat RETURN 


LE 


IF 


)HCHRS (1) à 


mican) 


1246 IF page (can)#72; 
Ex TNT CS ntEARI/72IT 

3 a 
THEN GOSUR 


LEÉGE 


1106: RETURN 


: 1196: RETURN 
148 RE TURN 


IF du=dd THEN duz&:FRINT#I,d®#:: 


"X"dE"X"s:prel: GÜSUE 


THEN aaza:RETURN 

114% IF aa=a AND prei THEN pr=6:RETURN 
1156 IF aa=a AND pr=û THEN pr=i 

1164 1F a*44 AND alt=-1 THEN LOCATE#I, 14 
"b'ssalt=® 

* IF aï44 AND alt=1i THEN LOCATE#1,9,1 
RP 

IF aï44 THEN tlazi ELSE tlar® 
a=aa:GOSUE 


"RINT#1, 11449 IF du“*ié AND y“ 


3 IF duro CHRSE CLS) +CHRS C1) 


LETTRE 


THEN FRINT 


THEN FRINT CHRS CE 


TAG: GOSUE 66: TAGOFF: 


# (can) izx 


#y (can): GOSUR 1616 
SL. 

TAGOFF : 
KEÆX (can):yr=y (can) 

IF pti AND dus 

UD 72) #6+5,yx8-4: PRINT CHR$ (144): 
1519 IF pts=i AND du: 
MU 72) #8+6,22x8-4:FRINT CHK$(144) 


FRINT CHRS (27) +CHKS$ CZ) 


17 THEN MOVE 


17 THEN MOVE 


1468 IF dus? AND y%1 THEN MOVE (x MOD 
721 #0, (y4) 8: FRINT CHARS (249) CHRS (250) 3: 
MOVE CGe+1) MOD 7248, Cy-2) B:FRINT CHR# 
(248) 3 

141% IF du=i AND y£ 


21 THEN MOVE (CCx+1) 


#IMOD 72) #8, Cy+5) #6: FRINT CHARS (222) CHARS (25 


FHDSEIMOVE CCx+1) MOD 72)#8, C(y+1) #8: FRINT 


|[CHRS (224) CHRS (229) 3 


1426 IF du=i AND y#%1 THEN MOVE (x MOD 


[72)#6, (y—4) 8: PRINT CHARS (218) CHRS$ (219) 3: 
| MOVE (x MOD 72)+%8, (y-2) #8: FRINT CHK# (216 


L)CHRS (217): 

(1456 IF du=ié THEN MOVE (x MOD 72)*B,y*8 
|: FRINT CHRS (229) CHRS C2236) ; 

=J31 THEN FOR 1=1 TO 
3: MOVE (Ce MOD 72)+1)#8, (vV+1) #8: PRINT © 


LHRE (228) 5 NEXT 


1459 IF dui*16 AND y:21 THEN FOR ii Ti 

SiMOVE (x MOD 72)#8, (y-i1)#8:FRINT CHRS&(® 
F9) 3 :NEXT 

1464 IF yr=37 THEN MOVE (x MOD 72)#8-4,7% 
GB: DEAW (x MOD 72)#8+16,76%8, 1 

1476 IF yr=39 THEN MOVE (x MOD 72)#8-4,% 
Bx6: DRAW (x MOD 72)#8+16,2:8%8, 1 


11486 IF y<ie2sS THEN MOVE (x MOD 72) #8-4,2 
EX] 4x6: DRAW (x MOD 72) #8+16,24%8, 1 

11496 IF y2=23 THEN MOVE (x MOD 72) #8-4,2 
AND pagel(cal® 
“THEN WHILE page(cal 
(8-5: FRINT CHR (220) 5e MOVE (x MOD 72)#6,7% 


#8: DRAW (x MOD 72)#68+146,22%8,1 
1996 IF du=27 THEN MOVE (x MOD 72)#8,75 


2x8-$S: PRINT CHRS (2357) CHRE (278) ; 


11916 IF du=17 THEN MOVE (x MOD 72) *8,:6% 
| a- ri FRINT CHARS (242) CHRS (247) 3: MOVE (x MO 
ID 72) #8,2246-5S: PRINT CHR (2406) CHRS (241) 3 
19529 IF du=47 THEN MOVE (x MOD 72)+*8,20%x 
seu A (x MOD 


ET 7 
La2) ci 


1526 du=87 THEN MOVE Cx “MOD 72) #8,52%x 


)'G:FRINT CHR (226) CHRS (221); 


1546 IF du=167 THEN MOVE (x MOD 72)%8,3% 


1326 IF alt=1i THEN MOVE ((x-1) MOD 7246, | #68: PRINT CHR$ (226) CHRS (221); 


Y*B-2: PRINT"#"; 
1226 IF alt=-1 THEN MOVE 
, Y*B-2: PRINT Hpotese tp ena e 
ED #8, (y+1)*8-2: PRINT CHR$ (Z 
=17 THEN 1506 

31 THEN MOVE 


1546 IF dus 
1586 IF du£S AND yi= 
TE) AB, VAB: FRINT CHRS (226) CHRS# (227) 3 
1569 IF du£=4 AND y*31 THEN MOVE 
72) #8 ,V#8: PRINT CHR$ (274) CHRS$ (276) 5; 
IF duz=8 AND y£=2%1 THEN MOVE 


1:86 IF du=8 AND y>31 
72)#8,Y*6:FRINT CHRS$ (244) CHRS (236) ; 
1394 IF dur? AND y‘=21 THEN MOVE 
(Y+TID#B: FRINT CHRS (245) CHR# (2411646 IF alt=1 THEN stot="oi" 
, (Y+1) 8: PRINT 


MOD 72)+8, 
&)3 MOVE CCu+e 
CHRS C247) 3 
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(Cx—-1)MOD 72) +6 


THEN MOVE 


15936 IF affipa=i THEN RETURN 

156 IF du:=17 THEN du=(du-7)/16 

157% xp (can) =xn (can) :xn(can)=xn(can)+tdu 
—dux%(pt=1)/72)#%7:«(can)z=xn(can) 

1586 TAGOFF:FRINT CHRS (23) +CHR$ (1): TAG: G 
OSUE 366 

1599 IF xn(can)page(can)#7? THEN WHILE 

x«n (can) page (can) #72 :page (can) =page (can) 
+1: WEND: SOUND 1,56,4,4:GOSUB 426: GOSUE % 
(12) 

1699 RETURN 

161® 

1626 no(can)z=no(can)+i 

1656 IF alt=® THEN sto$="@0" 


1659 IF alt=-1 THEN sto$g="-j" 
1666 sto$=stos+RIGHTS(C" "4STRE(pt),1) 


5) 


"+STRSE (du) , 2) 
M+STRE C4) , 5) 


1676 
1686 


stobesto$+RIGHTS C" 
Ssto$=stot+KIGHTS C" 


1699 sto$=sto#+KIGMHTS (C" HSTRS Cyr, 2) 
1766 IF dur=17 THEN s50=6:G0TO0 1776 

171% sosde(y-2%)+alt 

1729 Sso=FN son(so) 

1726 sto$=sto$+RIGHTS(" MÆSTRE (SO), 4i 
17464 IF dur=17 THEN da=(du-7)/16 ELSE da 
FU 

1759 da=da-da%(pt=1)/#2 

176% sto$=sto$+RIGHTS OC" MAESTRSE (da), 4) 
1774 no$(can,no(can))=sto$:stog="" 

178% RETURN 

179% 

1896 affipari 

1819 FOR iiri T0 no(can) 


PUR PRE res Le 5) i 
1F “+ (page(can)-1)#72 AND xxH£#page 
#7: THEN GOTO 1876 


1620 


1846 IF page(can)#72 THEN ii=no(cani 
1856 NEXT ii 

1866 RETURN 

1876 alt= re ie AE 

1886 pteVAL (MIDS(no$(can,11i),%,1)) 

189% duz VAL (MID (no (can, ii), 4,5)) 

1966 y (can) =VAL (MID (no$(can,ii)i,1%,4)0 
1919 KH(can)rxx k 
1926 TAGOFF:LOCATÉE 1,1: FRINT CHRS& CEE) +CH 


RS CE) 
1938 
1946 


TAG: GOSUR 1296: TAGOFF 
LOCATE 1,1:FRINT CHRKS& CEE) +CHRKS& (1) 


1956 GOTO 1856 

1966 

197% inser=6 

198 FOR jj=i TQ no(can) 

1996 LA AE CRE ARR ARS Jd)s 7/5 39) 

2600 IF <(can)=xx THEN inser=i:GOTO 646 


2616 
22e 


NEXT ji 
IF inser=® THEN LOCATE 1,1: FRINT 
5) CHRS (1): TAG 


CH 


29959 IF du:=17 THEN dui=(du-7)/16 ELGE d 
ui=du 

29664 FOR h=no(can) TO jj STEF-i:no$ (can, 
h+1)=n0o$(can,h):MIDS (no$(can,h+1),7,5)=K 
IGHTS# C" MA+STRS (VAL (MID (no$(can,h),7 
s2))+(dui-duix(pt=1)/2)#3),S):NEXT h 
2676 no(can)=no(can)+1:x«p (can) =xp (can)+( 
dui-dulx(pt=1)/2)%2%:#4n(cean)z=xn(can)+(dui 
-duix(pt=1) /2)%5 


2086 IF alt= THEN s$="@o" 
2996 IF alt=i THEN s$="61" 


2166 IF alt=-1 THEN s$="-1" 
2119 no$(can, jj)=S$+RIGHTS (" 
L)+RIGHTS (" M+STRS (di) ,:23) 
2126 no$(can, jj)=no$(can, 13) +RIGHTS#(" 
MAÆSTRS (x Ccan)),S)+RIGHTS CM MASTRE (y CE 


"+STRS (pt), 


STRADAMUSE 


11:56 VA +alt: 

2144 IF dus=17 THEN 5076 

2159 no$(can, ji)=no$(can, ji) +RIGATSC" 
M+STRE(SO),4) 

2169 dui= ui ddl pl Lio 

2179 no$(can, jj)=no#(can, Jj) +RIGHATE GC" 

+STRS (du1),2) 

#18 GOSUR 426: GOSUE 

2196 GOTD 2676 


SO=FN &Somisoi 


E66 


supriro 


FOR jj=z1i TO no(can) 

HHeVAL (MID (no$(can, ji),7,%)0 

IF xcan)=xx THEN suprislisGOTO 28e 

# NEXT j3j 

2266 IF suprir® THEN TAGOFF:ILOCATE 1,1:F 
RINT CHRS CET) CHARS (1): TAG 
Le RE TUFN 

duzVAL (MID#E(noE(Ccan, jj),4,%)38IF du 


THEN dus (du-7) 416 

pteVAL(MIDE(no#(can, ji),%,1)) 

; FOR hzjj TO nolcan)i-1i:no$(can,hienc 

$ican,h+1):MIDS (no# (can, h),7,5)=RIGHATS# C" 
MHSTRE (VAL (MIDS (no (can, h),7 

u-dux (pt=1)/2)#7%),S):NEXT h 

26 no$(can,no(can))=""sca(can,no(teanmi)) 


yo je (i 


Æxn(cani( 
du 


BEEG nol(can)=no(can)-1ls:xn(can) 
du--dusx (pt=1)/2)%%:#p (can) =xp (Can)-(du- 
 . 1) ED #T 

: GOSUER 426: GOSUE 
GOTO 22764 
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576 CLS#E: TAGOFF 
2286 LOCATE#S, 1, 1: PRINTÉHS, CHARS (156) STRIN 
G6(24,154)" MENU "STRINGS# (24,154) CHR 
$(156) 

2396 LOCATE#Z, 16,2: PRINT#S, 
FC(26)"-4-— SAUVEGARDE" 

2466 LOCATE#Z, 16,5: PRINTHE, "-2— 
“SPC (18) "-5-— CHARGEMENT" 


“—]- ECOUTE"S 


ECRITURE 


241% LOCATE#Z,27,4:FRINT#S,"-25- FIN" 
24864 IF INÉEY(G4)#INHEY(12)=6 THEN 2486 
2454 IF INEEY(C6S)#INFEY(14)=6 THEN 2666 
2444 IF INEÉEY(S7)#INFEY (5)=@ THEN 3646 
2454 IF INEEY(SG)#INFEY (20)=6 THEN 28646 
2486 IF INEEY(49)#INHEY(12)=6 THEN 2916 
2479 G0OTO 2426 

2480 ‘ 

2496 CLOHT: FRINTHE, CHKS (156) STRINGS (CEA, 1 


54)"  ECOUTE "STRINGS (24,154) CHR# (156) 
2566 LOCATEHS, 4,2:FRINT#3,"-1- ECOUTE CA 
NAL I -3- ECOUTE CANAL III" 

2516 LOCATE#S,4,5:FRINT#3,"-2- ECOUTE CA 
NAL II -4- ECOUTE CANAUX I,II & III 


69 


2926 IF INKEY(64)#INEEY(17)=6 THEN cc=i: 

GOTO 2576 

2936 IF INEEY(65) #*TNEEY(14)=6 THEN cce=?: 

GOTO 25764 

2S46 IF INFEY(S7)#INKEY(5)=6 THEN cez%:6G 

OTO 2576 

2994 IF INFEY(56) #*INHEY(20)=6 THEN 

#96 GOTO 

29574 LOCATEHSZ,26, 6: FRINTÉHE," 

FR ARRETER" 

2990 FOR iirzi TO noce) 

2399 ptreVAL(MIDS(no$(cc,iir),#,1)) 

2666 dur=VAL(MID#(no$(cc,iir),4,#)) 

2619 IF dur:=17 THEN durz(dur-7) /16:s0=% 

: GOTO 2656 

2624 S0o=VAL(MIDS(no$(cc,iir),14,4)) 

2656 dursdur- (dur/2)+(ptrz1i) 

2644 SOUND 1,so,dur#16,6,-1#(S502:6),-1%( 
#6) 

IF INÉEY(47)z6% THEN 

NEXT iir 

GOTO 22576 


ELITE 


Can Lan Poe 
aa 69 


<ESFACE* FOU 


2276 


CLSHEs FRINTHE, CHRS (156) STRINGS (24, 1 
ECRITURE MSTRINGS (24,154) CHR$& (156) 


syn= 
LOCATE#S,206,2:FRINT#3,"-1- SUR LE C 
Ki RL 
2724 LOCATE#HS,206,4:FRINT#Z,"-2- SUR LE C 
ANAL II" 
2729 LOCATE#S,20,6:FRINT#Z,"-73- SUR LE C 
SNAL III" 
2748 IF INKHEY(6G4)#INEEY(13)=6 THEN IF ca 
nel THEN 2796 ELSE can=i:GOTO 2786 
2794 IF INEEY(6S)XxINFEY(14)=6 THEN IF ca 
nez THEN 2796 ELSE can=2:60T0 2786 
276% IF INKHEV(S7)#INEEY(S)=9 THEN IF can 


= THEN 2796 ELSE can=%:G0OTO 2786 

2774 GOTO 274% 

2780 FAFERKS, 6: CLS#T: FAPFER#KS, 1: GOSUR 416 
: TAG: GOSUR 566: GOTO 184 

2790 PFAFER#KS, @: CLGS#HT: FAPFER#KS, 1: TAG: GOTO 
186 

20660 

2619 CLSHIS: FRINTHE, CHRS# (156) STRINGS (24,1 


54)" SAUVER "STRINGS (24,154) CHR$# (156) 
2826 LOCATE#S, 15,3: FPRINT#Z, "ENTREZ NOM D 
U MORCEAU ‘“; 


2854 INFUT#S, MUSICS 

2846 LOCATE#S,15,4:PRINT#3, "PUIS TAFEZ LU 
NE TOUCHE..." 

2859 WHILE INÉEYS#<£5"": WEND: WHILE INÉEYS:= 
"us WEND 

2864 OFENOUT MUSICS 

2976 FOR sai TO Z:FRINT#9,page(sa) ,no(s 
a) ,“n(sa),xp(sa),x(sa),y(sa):NEXT 

2869 FOR sa=i TO Z:FOR ve=é TO no(sa):FK 
INT#9,no$(sa,ve):NEXT ve,sa 
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2896 LOCATE#S, 15,S:FRINTHS, "REMISE EN OK 
DRE DE LA MEMOIRE....":CLOSEOUT 

2966 GOTO 2766 

2919 

2926 CLSHT: PRINTHE, CHRS (156) STRINGS (24,1 
54)" CHARGE  "STRINGS (24,154) CHR$ (156) 
2954 LOCATE#S, 15,7: FRINT#Z, "ENTREZ NOM D 
LU MORCEAU ‘; 

2946 INFUT#3,MUSICS 

295% LOCATE#Z,15,4:FRINT#3,"FUIS TAFEZ LU 
NE TOUCHE... ." 

2964 WHILE INFEYS$<:"": WEND: WHILE INFHEY#:= 
"Us WEND . 

2976 Syn=@:ERASE ca,no$:DIM no$(z,ïoû)ie 
Sp=FRE ("") :OFENIN MUSICS 

2989 FOR sa=i TO 3:INFUT#K#9,page(sa),no(s 
a) ,xn(sa),xp(sa),x(sa),/(sa):NEXT 

2996 FOK sa=i TO Z3:FOK ve=® TO no(sa):IN 
FUT#9,no$ (sa, ve) : LOCATE#3,15,S:FRINT#S, LU 
SING"'H#H "5 Ves: FRINT#35," NOTES SUR ‘"3:FRI 
NT#23, USING"### "5 no(sa) ; 2: FRINT#3," FOUR L 
E CANAL "3: FRINTHS, USING'"'#";sa3; :NEXT ve, 
Sa 
RICIS IS) 
FA16 
FOR 
HOT 
5446 
1086 CLSHT: FRINTHZ, CHRS (156) STRINGS (24, 1 
94) "STRADAMUSE'"STRINGS (24,154) CHR$ (156) 
2069 LOCATE#Z,195,3:FRINT#S,"-1- FIN" 
2976 LOCATE#S,19S, 4: PRINT#5,"-2- RETOUR" 
2080 LOCATE#S,15,S:FRINT#Z,"-3- LISTE DE 
S NOTES" 

2090 IF INHEY(64)#INHEY(17)=06 THEN 5716 
3196 IF INFEY(6S)#INKEY(14)=06 THEN 2766 
3116 IF INKHEY(S7)#INKEY(S)=6 THEN fin=i: 
GOTO 21:76 

2126 GOTO 2696 

3170 CLS#3: CLS 

2146 LOCATE 1,1:PRINT CHR$ (156) STRINGS (CZ 
» 134) CHR$ (158) STRINGS (6,154) CHR (158) ST 
ING#S (7,154) CHRS#& (158) STRINGS (4,154) CHR (1 
98) STRING#S(6,154);: 

5159 FRINT CHR$ (158) STRINGS (7,154) CHKS (1 
28) STRINGS (5,154) CHRS (1958) STRINGS (6,154) 
CHRS (158) STRINGS (7,154) CHR$ (156) 

3166 LOCATE 1,2:PFRINT CHR$(149)" I "CHR# 
(149)" NOTE "CHR$(149)" DUREE "CHR#(149) 
"II "CHR$(149)" NOTE "CHR$(149)" DUREE 
"CHRS$ (149)" III "CHR$#(149)" NOTE "CHRS#(1 
49)" DUREE "CHR$ (149) 

3179 LOCATE 1,3:PRINT CHR$ (151) STRINGS (CE 
5154) CHKS& (159) STRINGS (6,154) CHR# (159) STR 
ING# (7,154) CHK#& (159) STRINGS (4,154) CHRS (1 
39) STRINGS(6,154); 

3186 FRINT CHR$ (159) STRINGS (7,154) CHRS$ (1 
39) STRINGS (5,154) CHRS (159) STRINGS (6,154) 


CLOSEIN 

DIM ca(z,7:06) 

GOSUR 416: TAG: GOSUER 
GOTO 2566 


766 


CHRS (159) STRINGS (7,154) CHRS (157) 
2199 WINDOW 9,86,9,21:CLS 

32600 GOSUR 2766: CLS 

2216 FOR pp=i TO MAX (no (1) ,no(2) ,no(#)) 
2209 PRINT CHRS$ (149) ;USING"###";ca (1, pp) 
52: PRINT CHRS (149); USING'##### “3 VAL (MID# 
(no$(1,pp),14,4))3:PRINT CHRS (149) ; USING 
“HH#H## "5 VAL(MID#(no$(1,pp),18,2)) #16; 
2256 PRINT CHRS (149) sUSING"### "sca(?,pp 
)3: PRINT CHRS (149) sSUSING"##H### "5 VAL (MID 
$(no$(2,pp),14,4))5:FRINT CHRS# (149); USIN 
G'HHHHE ss VAL(MIDS(no$(2,pp),18,2))*163 


2240 PRINT CHRS (149) sUSING"### "sca(s,p 
PY3:PRINT CHRS (149) sUSING'##H### 5 VAL (MI 
Dé(no$(,pPp),14,4))3:FRINT CHR# (149); USI 
NG'HHHHE 5 VAL (MIDS (no$(3,pp),18,2))#16 
PRINT CHRS (149) 

2286 IF pp MOD 13=6 THEN WHILE INKEYS#<>" 
":WEND: WHILE INÉEYS="": WEND: CLS 

2266 NEXT 

2276 PRINT CHRS (147) STRINGS (3, 154) CHRS# (1 
55) STRINGS (6,154) CHR# (155) STRINGS (7,154) 
CHR (155) STRINGS (4, 154) CHRS (155) STRINGS ( 
6,154); 

2206 PRINT CHRS (155) STRINGS (7, 154) CHRS (1 
55) STRINGS (5, 154) CHRS (155) STRINGS (6, 154) 
CHRIS (155) STRINGS (7,154) CHRS (153) 

2296 WHILE INHEYS:%"":WEND: WHILE INKEYS= 
Mu; WEND 

2300 CLS: WINDOW 9,86,6,15: CLS: fin=@: GOSU 
E 296:GOSUER 1796:TAG:GOSUB 366: GOTO 2x6 


WHILE INÉEYS£ "1: WEND 
LOCATE 1,1:FAFER 9:FEN 1:END 


EL E 
HI26 
MURS 
HA CLSHT: FRINT#SZ, CHARS (156) STRINGS (24,1 
34)" ECOUTE  "STRINGS (24,154) CHR$& (156) 
2556 IF synr9 THEN LOCATE#S,15, 4: FRINTK#S 
> "CALCUL DE LA SYNCHRONISATION ..." 

23606 d(1)=6:d(2)=%:d(5)=6:dt(1)=6:dt(2)= 
ds dt (C3) =0 

3376 no$(1,6)="X"sno$(2,0)="X"sno$ (3,0) = 
LL x LL 


23586 FOR iisi TO Z 
239% d(ii)=VAL(MIDS(no#$(ii,1),18,2)) 


34%@ NEXT ii 
3416 ca(l,1)=49:ca(2,1)=42:ca(3,1)=28 
3426 IF fini AND syn=i THEN RETURN 


3436 
3446 
7456 
E460 
4476 
2486 
7496 


IF syn=1i THEN 35616 

ils j=iskz=l 

FOR jj=i TO € 

FOR iizi TO no(jj)+i 
deVAL(MID#(no#$(jji,ii),18,2)) 
dt(jji)=dt(jij)+d 

NEXT ii,3jj 


2566 tpm=MAX (dt (1) ,dt(2) ,dt (3)) 
3516 FOR tp=i TO tpm-i 


STRADAMUSE 


2526 IF d(i)ztp AND d(ébæetp AND d(fi=etp 

THEN imitis jejtiskek+lsca(1,1)=49:ca (0, 
)=4B:ca(E,k)=28:GOSUR 3776: GOSUR 286643: 0 
SUB %8%6:GOTO 2596 

ÉS56 IF d(i)=tp AND d(£)=tp THEN 
æj+liica(l,i)=17:ca(2, j)=16: GOSUR 
SUR 28606: G0T0 5596 

2546 IF d(i)ztp AND d(f)ætp THEN 


imivisj 
3776: G0 


isitilsk 


mk+lica(i,i)=itica(s,k)=12: GOSUR 2776:60 
SUE 26836: GOTO 3596 
2556 IF d(2)=tp AND d(f)=tp THEN j=j+itk 


mk+lica(s, j)=34:ca(ë,k)=26: GOSUR 3666: G0 


SUE 2636: G0OTO 2596 
2566 IF d(i)=tp THEN isitiica(l,i)=1:G05 


UB 2776: GO0T0 2596 

3576 IF d(f)ztp THEN jejtilisca(®, j)=2: 605 
UB 2866: G0T0 3596 

5586 IF d(Sbztp THEN kskæ+lsca(Z,k)=4s G0S 
UE 2836: G0T0 2596 

2596 LOCATE#E, 45, 4: FRINT#S, USING'H#H## "ST 
pm-il-tp:NEXT tp:syn=i 


2646 IF fineil THEN RETURN 

HG jisis jisiskkæl 

2626 LOCATE#SE, 15, 4: FRINT#S, STRINGS (56, " 
3 

FGEE IF SQ(1)-128 OK no$(i,ii-1)="" THEN 
3676 


5646 dureVAL(MIDS$S(no$(1,ii),18,2))21IF du 
reg THEN durel:sor%:G0OTO 3666 

F656 sorVAL(MIDS(no$(1,1i),14,4)) 

66 SOUND ca(l,ii),so,dur#12,60,-1# (So. 

M) ,-1kx(Soir6) s11m1it+i 

5676 IF SQCH)#128 OK no$(z, jj—1)="" 
3716 

5689 dur=VAL(MIDS(no$(2,3jj),18,2))2IF du 
reg THEN durzil:so=06s:G0OTO 5706 

F69% Sso=VAL (MIDS (no$(2,j3),14,4)) 

5764 SOUND ca(2,jj),so,dur*12,6,-2% (So: 

D) ,-2#(s0<5r0) : jj=jj+i 

5716 IF SQ(4)#128 OR no$C3,kHE-1) =" 
3756 

5726 durzVAL (MIDS(no$(CS,kHkH),18,2))2:1F du 
re THEN dur=l:so=6:GOTO 5746 

3756 so=VAL (MIDS(no$(3,kEH),14,4)) 

574% SOUND ca(%3,kK) ,sox?, dur#12,6,-5x(so 
Le) , 3x (soir0) 2: KE=EE+T 

3756 IF iisno(i) AND jj*no(z) 
5) THEN 2576 

2766 GOTO 3620 

2776 d=VAL(MID#(no$(1,i),18,2)) 

3786 d(l)=d(1)+d-(d/2)*x(p=1) 
579% RETURN 

2846 d=VAL(MIDS (no$g(2, j),16,2)) 
5816 d(Sz=d(2)+d-(d/2)*x(p=i) 
2824 RETURN 

É8:6 deVAL(MIDS (no$(CZ,k),18,%)) 
5849 d(%)=d(5)+d-(d/2)*(p=1l) 
2856 RETURN@ 


THEN 


THEN 


AND Ek:not 
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MASTERFILE 8000 


LE GESTIONNAIRE DE FICHIERS LE PLUS ATTENDU SUR PCY ! 


ATTENTION, MASTERFILE 8000 n'est pas Un programme BASIC compilé 
rapidement adapté du CPC au PCW ! C'est un produit entièrement 
nouveau, qui bien qu'il ait gardé le meilleur des caractéristi- 
ques de la version CPC, a ête crée spécialement pour le PCU. 
Les autres produits disponibles offrent un choix entre des 
fichiers en RAM rapides mais de capacité limitée, et des 
fichiers en accès direct sur disquettes, de grande capacité 
mais encombrants car de longueur fixe. MASTERFILE 8000 et le 
disque RAM du PCW travaillent ensemble pour vous proposer une 
grande capacité et un accès rapide à des données de longueur 
variable. La longueur de vos fichiers n'est linitée que par la 
taille de votre disque M. L'abscence d' accès disquettes en 
cours de travail représente un gain de temps et une économie 
d'usure mécanique appréciables. 

MASTERFILE traditionnellement champion toutes catégories pour 
la création de masques de saisie et de présentation des données 
s'est surpassé. Tous les questionnaires et menus ont disparus, 
vous créez 'en temps réel' à l' écran vos masques, comme dans un 
programme de dessin. La mise à jour d'enregistrements est 
directe grâce à l'éditeur "pleine page' du programme qui permet 
les modifications et corrections de rubriques directement sur 
le masque. Des options uniques permettent de gérer les dates en 
français: 7 janvier 1987 au lieu de 870107 par ex. , de placer 
M. Mme, Mlle, etc. devant les noms tout en “gardant la 
possibilité de trier ceux-ci, d'effectuer des calculs entre 
champs etc... Tout l'affichage écran est GRAPHIQUE et les 
effets - lignes, boites - sont dessinés avec précision, les 
interlignes se choisissent en pixels. Tout ceci plus rapidement 


que CP/M ne le permet normalement. Les options de l'imprimante 
PCW sont toutes accessibles par menu. 

Les fichiers Indexes sont automatiquement classés en séquence 
et ne devront jamais être triés. Vous pourrez aussi créer des 
fichiers non indexés, dans lesquels vous pourrez insérer des 
données où vous le voudrez. Il est te de créer des fich- 
iers ‘relationnels' ayant jusqu'à 8 niveaux. Vous pourrez imp- 
porter/Fusionner tout fichier fc (par ex. de MASTERFILE III) 
ou exporter des données par ex. vers un traitement de textes 
comme TASWORD 8000. La fusion de fichiers est aussi possible: 
pour les fichiers indexés, il s'agit d'un véritable 'merge' et 
non pas d'un ajout. Cette fonction permet la copie de fichiers 
en modifiant l'ordre des clés. De nouvelles rubriques peuvent 
être créées en tout temps. La recherche des fichiers combine 
flexibilité et rapidité et comprend toutes les options de tri 
habituelles: alphabétique, numérique, croissant/décroissant, 
logiques, par dates etc... I1 vous est même possible d'assigner 
dans des cases (7 au maximun] pendant le tri, des sous-ensem- 
bles de données pour référence où traitement ultérieur. Le plus 
souvent MASTERFILE 8000 vous attendra, pas le contraire. 

MASTERFILE 8000 est entièrement dirigé par menus, 100% en code 
machine, il est livré avec une bibliothèque d'exemples directe- 
ment utilisables et un manuel didactique détaillé. Aucun autre 
SGBD (Système de Gestion de Bases de Données - uï grand mot 
pour décrire un 'carton à chaussures plein de fiches'...l sur 
PCW n'offre une telle puissance, flexibilité et convivialité. 


TASWORD 8000 RETROUVEZ LA SIMPLICITE ET LA PUISSANCE DE L'ECRITURE ! 


TASWORD PC 


Le Traitement de textes POUR LES PC IBM, 
L'AMSTRAD PC 1512 ET AUTRES "COMPATIBLES" 


FACILE ! 
La force des Traitements de textes TASVORD à toujours été leur 
simplicité, aucun programme du genre n'offre autant de puis- 
ance avec une telle facilité d'accès. Le programme didactique 
intéractif 'Tuteur', livré gratuitement avec chaque TASWORD PC 
permet une prise en main rapide, peu après avoir reçu votre 
disquette vous produirez sans peine Vos premiers documents. 
Avec TASWORD PC vous pouvez écrire sans avoir à lire de volu- 
mineux manuels. TASWORD PC ne demande l'apprentissage d'aucun 
langage ou procédure compliqués. Vous tapez comme Sur une 
machine à écrire mais avec toutes les options magiques du TDT. 

PUISSANT 

TASWORD est aussi livré avec le puissant programme de 'publi- 
postage *MAIL-MERGE", un outil qui se pliera a vos plus folles 
exigeances en la matière . Une série d' exemples de fusion est 
livrée sur la disquette avec un guide de prise en main pas- à- 
pas. Une autre qualité de TASWORD PC est la facilité avec 
laquelle il se modèle pour épouser aux mieux VOS désirs et les 
caractéristiques de VOTRE matériel. À l'impression par ex., il 
est possible d'adapter TASWORD pour utiliser pleinement toutes 
les fonctions de votre imprimante: choisir le nombre de copies 
l'interligne, les en-têtes et pieds-de-page, la numérotation, 
la fusion - en cours de travail - de textes contenus sur 
disquette. Toutes les écritures et effets divers offerts par 
votre imprimante sont accessible avec simplicité. 

Plus de 20 options de déplacement dans le texte, la longueur 
de vos documents n'est [imitée que par la mémoire disponible, 
pas d'accès disquettes en cour de travail d'où rapidité accrue 
& moins d'usure du matériel, justification, frappe "au 
kilometre”, déplacement de blocs, reformatage, fenêtre de 
travail de 256 colonnes, tabulations et règles définissables 
avec bibliotheque de tabulations, menus d'aide constamment 
disponibles - même simultanément avec la saisie, neuf options 
d'effacement, deux options et deux modes d'insertion, 
recherche et recherche/remplacement de texte globale ou 
selective, etc., etc., ... TASWORD PC produit des fichiers 
ASCII et est donc compatible avec la plupart des gestionnaires 
de fiches et des autres traitements de textes pour PC. 


La récupération des fichiers créés sur Tasword Spectrum, 
Tasword/Amsword CPC et Tasword 8000 est possible. 


Un correcteur d'orthographe en français est en préparation. 
coûte la 


et de la 
d'essai 


UN ESSAI POUR 10 FF. C'est tout ce que vous 
possibilité de vous convaincre de la puissance 
simplicité de TASWORD PC. Le prix de la disquette 


TASWORD PC vous sera crédité en cas d'achat du programme. 


MASTERFILE 8000 490 FF HT 
TASWORD 8000 380 FF HT 
TASWORD PC 380 FF HT 


Accès direct à toutes les lignes, pages de votre texte en moins de 7 secondes ! Impression sélective 
de parties de texte sans attente. Aucun accès au disquettes en cours de travail. Fichiers de 90 Ko 
sur PCW 8256 et 320 Ko sur PCW 8512. Fonction ‘publipostage’ puissante et flexible INCORPOREE ne 
nécessitant aucun autre progranne. Accès à toutes les imprimantes via l'interface Centronics/RS232 du 
PCW (ces pages ont été entierement créées sur le PCW et une imprimante ‘'LASER'}. Conversion des 
fichiers Locoscript et utilisation des fichiers Tasword/Amsword CPC et Wordstar possible. 
Compatibilité avec Masterfile 8000, dBase et tous les autre gestionnaires de fichiers sérieux. 

NOUVEAU: le programme GESTION-PLUS GP II de la maison ARKENCIEL, est maintenant compatible avec 

TASWORD 8000 permettant l'utilisation du fichier clients pour le publipostage et la 
création de documents tels que relances, lettres personnalisées, devis complets etc. 
Toutes les marques mentionnées sont déposées et appartiennent à leurs propriétaires respectifs. 
Les progiciels Sémaphore ne sont PAS protégés pour permettre la création de copies de secours. 


NOMME 80 us Bi 8 UE nt CE ee, Sauf imprévu, les commandes — 
| sont exécutées dans les 48H 
PPÉROME 4 & 5 E A LE Le suivant leur réception. 
(validité jusqu'au 30.03.87) 
AdFEÉSSES 4 du de hi Er LR cho ee à 
Sémaphore Logiciels 
I Case Postale 32 
Codé: Postal:: : 5 2 à 2 à 5 à 2 CH-1283 La Plaine (Suisse) 
Ville: : + : 


UE nn Q 


Gamme CPC Prix HT 
TaswWord. 464 SUr  CASSeLES 8 Ass see à eee one das aide 195,00 
Tasword "D" ou 6128 "Mailmerge" sur disquette ...... 280,00 
Masterfile III ( 128K ) sur disquette .............. 300,00 
Mastércalc 128 Sur disquette 2 sis van à burbtis ter trees 280,00 
Agénda. CPE Sur disSquétte. 2x she dés anse nine ua marées 195,00 
PTasprtint CPC-:Sûr Cassette, 58 ares a eds rene Gr a te 170,00 
Tasprint CPC SUF diSQUebte: 442 0 0 4 one éminents Len 195,00 
Tascopy CEC Sur. Cassette sus de eng detre engendre mé 170,00 
Tascopyv: CEC -sûr disquette sus ess tes mu eee et 195,00 
Crayon optique DART logiciel disquette ............. 280,00 
Raccord pour crayon et 6128 Amstrad ................ 75,00 
Cable conversion BUS 6128 Schneider/Amstrad ........ 150,00 
Digitaliseur (scanner) DART pour DMP 2000 & 3000 ... 600,00 
Scanner + Crayon OpPEIQUe se Sie dote eh diese bye are à 790,00 
Müuititace IT (464/664/6128) 4x 4m a dns pad 450,00 
Extension mémoire DK'tronics 64Ko (464/664) ........ 430,00 


Gamme PCWwW 


Tasw Word 80007 5% ss an die as ee de feed de 1 D Re rue à 380,00 
Disquette d'essai Tasword 8000 ..................... 66,00 
TASpELANET 8000. ER D ins Ne ne Glos nee en ete la tr 4e 195,00 
Tasword + Tasprint 8000 RO ER CT 520,00 
Discmate: 8000.24 m8 6e dan ne din and frere em lee re bone e 199,00 
Masterfile 8000 (livraison mars 1987)............... 490,00 
Jeu Extension 256Ko pour PCW ....................... 250,00 
Intérface: 2ème. lecteur 3,5 .où.:5:,25. ait ushahehrnst 450,00 
Lecteur 3,5 ou 5,25 de 720 Ko pour PCW ............ 1500,00 


Gamme PC 151 2 


Tasword PC (livraison mars 1687)...4...i44i4asssissse 380,00 
Disquette d'essai Tasword PC (disponible)........... 66,00 
EMÉeRSLON d'EMO RE PE ST Ass he ddaNee me eau 250,00 
Frais de port en recommandé, par commande .......... 25,00 
Supplément de contre-remboursement ................. 25,00 

TOTAL 


La TVA (18,6%) se paye au facteur à la réception des marchandises - Revendeurs, contactez-nous. 


Totaux 


25,00 


( ) Veuillez débiter ma carte de crédit du montant de ma commande 


VISA/EUROCARD: Na sue. aus sde ads XD 20/0 


{ |) Je vous envoie le montant de cette commande par: 


Eurochèque - Transfert bancaire - Mandat postal international 
(CCP 12-16681.8 à Genève - Cpte D6-105,283.0 S.B.S Genève.) 
Les chèques français autres que les Eurochèques ne sont pas négociables à l'étranger, merci de ne pas en envoyer 


Date . . PR DE Signature: 


CEC n.24 


Commandes par téléphone au 19.41.22.54.11.95 lundi à vendredi de 9 à 18H. 
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ous allons donc commencer ce mois-ci l’étude des fonctions 

du BDOS de CP/M. Avant de poursuivre il faut rappeler que 

ce que nous étudions c’est l’utilisation directe des fonctions 
du BDOS et qu'une telle utilisation ne peut-être écrite qu’en assem- 
bleur. Chaque interpréteur d’un langage donné contient dans son 
code binaire les sous-programmes écrits en assembleur qui permet- 
tront de faire la liaison entre les ordres du langage et les fonctions 
du BDOS CP/M à utiliser. Ainsi un interpréteur BASIC peut utiliser la 
fonction 9 du BDOS, qui écrit une chaîne de caractères à l’écran, pour 
implémenter l’ordre BASIC standard PRINT. De même un compila- 
teur contiendra de semblables sous-programmes dans le ‘’RUN- 
TIME’’ du langage et traduira certaines instructions par des appels 


/ Nr 


TIATION A 


à ces sous-programmes. 


Le CP/M étant livré avec des assem- 
bleurs 8080, nous utiliserons dans nos 
exemples du code 8080 tel qu'il peut 
être écrit pour ASM ou MAC/RMAC. 


APPEL STANDARD 
D'UNE FONCTION DU BDOS : 


BDOS EQU 5 

; On charge le registre C avec le numéro 
de la fonction à exécuter 

mvi c, Numéro de la fonction 

; Si la fonction le demande on charge 
dans DE l'adresse du paramètre 

Ixi d,Adresse d’un paramètre 

; Ou on charge dans le registre E la valeur 
d'un paramètre 8 bits 

mvi e,Valeur paramètre 

; Ou on charge dans DE la valeur d'un 
paramètre 16 bits 

Ixi d,Valeur paramètre 

; Enfin on appelle le BDOS 

call BDOS 

; Et au retour on teste le code retour de 
la fonction, s'il en existe un 

; pour savoir si l'opération s'est exécu- 
tée normalement ou pas. 

Le BDOS ne sauvegarde pas les registres 
de l'appelant. 

Pour chaque fonction nous donnerons 
donc : 

— une description de son action ; 

— le numéro de la fonction à charger 
dans le registre C ; 

— les paramètres en entrée ; 

— le résultat en sortie ainsi que le code 
retour ; 

— un exemple d'utilisation 
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RE-INITIALISATION DU SYSTEME 
(DEMARRAGE A ‘’CHAUD"') 


Cette fonction qui est identique à un JMP 
0 (l'adresse O contient justement un JMP 
à la routine de démarrage à chaud 
‘’Warm Boot’ du BIOS) permet une ré- 
initialisation du système, sans recharge- 
ment de CP/M. C'est en général avec 
cette fonction que se termine un pro- 
gramme qui redonne ainsi le contrôle à 
CP/M. 

En entrée : C=0 

En sortie : pas de code retour. 
Exemple : (Etant entendu que BDOS a 
été défini plus haut dans le programme). 
mvi c,O ; Fonction Warm Boot 

Call BDOS 

Bien sûr on peut aussi écrire 

REBOOT EQU O 

mvi c,REBOOT 

call BDOS 

Ce qui sera plus explicite à la relecture. 


LECTURE D'UN CARACTERE 
AU CLAVIER 


Cette fonction permet l'attente de la 
frappe d'un caractère au clavier. Les 
caractères de contrôle de CP/M comme 
les CR, LF, BS, TAB CTRL S ou CTRL P 
sont testés et pris en compte. Le carac- 
tère tapé est affiché à l'écran. Le carac- 
tère lu est renvoyé dans l’accumulateur 
A (voir listing 1). 

En entrée : C=1 

En sortie : A contient le code ASCII du 
caractère frappé au clavier. 


ECRITURE 
D'UN CARACTERE A L'ECRAN 


Cette fonction permet d'afficher un 
caractère à l'écran. Même remarque que 
pour la fonction précédente en ce qui 
concerne les caractères de contrôle. 
En entrée : C=2 E contient le code 
ASCII du caractère à visualiser. 

En sortie : pas de code retour (voir lis- 
ting 2). 


LECTURE DU PORT AUXILIAIRE AUXIN 
SOUS CP/M PLUS 
ET DU READER RDR SOUS CP/M 2.2 


Cette fonction lit une valeur 8 bits pro- 
venant soit de AUXIN soit de RDR. Ces 
périphériques logiques sont en général 
associés à une interface RS232 (voir lis- 
ting 3). 

En entrée : C=3 

En sortie : l’'accumulateur A contient la 
valeur lue. 


ECRITURE DANS LE PORT AUXILIAIRE 
AUXOUT SOUS CP/M PLUS 

ET DANS LE PUNCHER PUN 

SOUS CP/M 2.2 


En entrée : C=4 E contient la valeur à 
envoyer vers AUXOUT ou PUN. 

En sortie : Pas de code retour. 
Exemple : 

mvi c,4 ; Ecriture vers AUXOUT 

mvi e,ACK ; Envoie un ACKNOWLEDGE 
call BDOS 


ECRITURE D'UN CARACTERE 
A L'IMPRIMANTE 


En entrée : C=5 E contient le caractère 


à imprimer ou un code de contrôle pour 
l'imprimante. 

En sortie : pas de code retour (voir lis- 
ting 4). 


LECTURE OU ECRITURE DIRECTE 
A LA CONSOLE (CLAVIER/ECRAN) 


Cette fonction permet, grâce à un para- 
mètre présent dans le registre E, d'effec- 
tuer 2 sous-fonctions en CP/M 2.2 : 
— lecture du clavier sans attente si 
aucun caractère n'a été saisi. 

En entrée : C=6 E=OFFH 

En sortie : l'accumulateur A contient le 
caractère lu où O si aucun caractère n'est 
disponible. 

— Ecriture d'un caractère. 

En entrée : C=6 E= caractère à afficher. 
En sortie : pas de code retour. 

En CP/M Plus il existe 2 sous-fonctions 
supplémentaires : 

— lecture de l'état du clavier. 

En entrée : C=6 E=OFEH 

En sortie : l'accumulateur A est égal à O 
si aucun caractère n’est disponible et non 
nul dans le cas contraire. 

— Lecture avec attente de caractère 
disponible. 

En entrée : C=6 E=OFDH 

En sortie : L’accumulateur A contient le 
caractère lu. 

Dans tous les cas cette fonction ne prend 
pas en compte les caractères de contrôle 
tels que CR LF BS etc. Ces caractères 
parviennent à l'utilisateur comme des 
caractères ordinaires et c’est à lui d’ef- 
fectuer l'éventuel traitement associé. Le 
caractère éventuellement saisi n'est pas 
affiché à l'écran. 

Comme la valeur des caractères afficha- 
bles va de O à OFFH, cette fonction n'est 
pas capable d'afficher la totalité du jeu 
de caractères du CPC puisque les valeurs 
de OFDH à OFFH en CP/M Plus sont pri- 
ses comme des paramètres (voir listing 
5). 


LECTURE ET ECRITURE DE L'1/0 BYTE 
(CP/M 2.2 UNIQUEMENT) 


L'1/0 Byte est l'octet qui se trouve en 
0003H sous CP/M 2.2 et qui détermine 
les affectations périphériques physiques 
à périphériques logiques que l'on peut 
visualiser ou modifier par la commande 
STAT. 

Rappelons que les périphériques logiques 
sont : 

— CON: la console ; 

— RDR:'le READER, c'est-à-dire ‘‘lec- 
teur de ruban papier’ ; 

— PUN': le PUNCHER, c'est-à-dire ‘‘per- 
forateur de ruban’ ; 

— LST: l'imprimante du système. 


Les périphériques physiques les plus uti- 
lisés sont : 

— CRT: le clavier et l'écran ; 

— TTY: l'interface série ; 

— LPT: le port d'imprimante paralléle. 
Et par défaut les affectations sont les 


INITIATION A CPIM 


— CON:=CRT: RDR:=TTY: 
PUN: =TTY: LST:=LPT: 
Dans l'1/0 byte les bits O 1 correspon- 
dent à CON: 
les bits 2 3 à RDR: 
les bits 4 5 à PUN: 
les bits 6 7 à LST:, le bit 
7 étant celui de poids fort, c’est-à-dire 
le plus ‘à gauche’. 
Et chaque possibilité sur 2 bits corres- 
pond pour chaque périphérique logique 
à un périphérique physique. 
Ainsi CRT: vaut 01, TTY: vaut OO, LPT: 


Listing 1 
mvi C,i ; Lecture d'un caractère 
call BDOS 
cpi 'H' ; Est-ce la lettre H ? 
jz EnHaut 
cpi ‘B' ; Est-ce la lettre B ? 
jz EnBas 
Listing 2 
mvi c,2 ; Ecriture d'un caractère 
mvi e,'A' ; À sur l'écran a la position du curseur 
call BDOS 
Listing 3 
Boucle : SU 
mvi c,3 ;: Lecture de AUXIN 
call BDOS ; 
cpi 0 ; un NULL? 
jz Boucle 
mvi c,3 
call BDOS ; Lecture de la longueur du message (1 a 255). 
sta longueur 
Listing 4 
Ixi h,Ligne ; Adresse de la ligne à imprimer 
Ixi b,80 ; Longueur de la ligne 
Boucle : 
mov e,m ; Caractère de la ligne à imprimer 
inx h ; Caractère suivant 
push b ; Sauve la longueur 
push h ; Sauve adresse courante dans la ligne 
mvi cs ; Impression 
call BDOS ; d'un caractère 
pop h ; Restaure adresse 
pop b ; et longueur 
dex b ; Décrémente la longueur à imprimer 
mov a,b ;etteste sion afini 
ora c 
jnz Boucle ; Non caractère suivant 
suivantes : vaut 10, ce qui donne comme 1/0 byte 


de départ 10000001 soit la valeur 81 en 
Hexadécimal. 

Revenons donc à nos fonctions BDOS 
CP/M 2.2: 

— La lecture de l'1/0 Byte : 

En entrée : C=7 

En sortie ; l’accumulateur A contient la 
valeur de l'1/0 Byte. 

Exemple : 

mvi c,7 

call BDOS 

sta OldlOByte ; sauve l'ancien 1/0 Byte. 
— ‘écriture de l’1/0 Byte : 
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En entrée : C=8 E= la nouvelle valeur 
de l'1/0 Byte. 


En sortie : pas de code retour (voir lis- 
ting 6). 


LECTURE DU STATUT 
DU PORT AUXILIAIRE 
(CP/M PLUS UNIQUEMENT) 


Les deux fonctions suivantes remplacent 
sous CP/M Plus la gestion de l’1/0 Byte. 


Listing 5 
a 
Boucle : 
mvi c,6 ; Lecture directe de 
mvi e,OFFH la console, c'est-à-dire le clavier 
call BDOS 
ora a ; Un caractère disponible ? 
jz Boucle ; Non on attend un caractère 
sta Carlu ; et on le stocke dans Carlu 
mvi c,6 
mov e,a ; Et on l'affiche à l'écran. 
call BDOS 
Listing 6 
mvi c,8 
Ida OldlOByte ; Récupère l'ancien 1/O Byte 
mov e,a ; eton le rend à nouveau 
call BDOS ; actif 
Listing 7 
InBusy : 
mvi c,7 
call BDOS ; Lit statut port auxiliaire en entrée 
ora a ; renvoie O si occupé 
jz InBusy 
mvi c,3 ; Lecture du port auxiliaire 
call BDOS 
sta CarLu ; stocke le caractère lu 
OutBusy 
mvi c,8 tes 
call BDOS ; Lit statut port auxiliaire en sortie 
ora a ; renvoie O si occupé 
jz OutBusy 
mvi c4 ; Ecriture dans port auxiliaire 
Ida CarLu ; du caractère reçu pour test 
mov e,a 
call BDOS 
Listing 8 
CR EQU ODH ; Retour chariot, c'est-à-dire 
; curseur sur début de la ligne. 
LF EQU OAH ; Ligne suivante, c'est-à-dire 
; curseur descend 
; d'une ligne 
Texte : db CR,LF ; A la ligne suivante 
db ‘Bonjour {$" ; Texte à afficher 
mvi c,9 : 
Ixi d,Texte 
call BDOS ; Affiche Bonjour ! à l'écran os | 
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lecture du statut de l'entrée du port 
auxiliaire (AUXIN). 

En entrée : C=7 

En sortie : L'accumulateur A contient le 
statut. 

— lecture du statut de la sortie du port 
auxiliaire (AUXOUT). 

En entrée : C=8 

En sortie : L'accumulateur A contient le 
statut. 

La signification exacte de l’octet de sta- 
tut dépend évidemment et du périphéri- 
que physique associé au port auxiliaire 
et de la façon dont est écrit le BIOS, qui 
peut décider de renvoyer la valeur com- 
plète du registre d'état du périphérique 
ou de renvoyer un code d'état comme 
OFFH pour prêt et O pour occupé. C'est 
en général la deuxième solution qui est 
implémentée, afin de rendre la program- 
mation indépendante du matériel (voir lis- 
ting 7). 


ECRITURE A L'ECRAN 
D'UNE CHAINE DE CARACTERES 


Cette fonction permet donc d'écrire à 
l'écran une chaîne de caractères de lon- 
gueur quelconque, à partir de la position 
courante du curseur. 

La fin de la chaîne est indiquée par un 
caractère $. Notons qu’en CP/M Plus ce 
caractère, appelé délimiteur, peut être 
modifié par la fonction 110. 

Si la chaîne de caractères contient des 
caractères comme CR LF ou des codes 
de contrôle, ceux-ci seront pris en 
compte (voir listing 8). 

En entrée : C=9 DE=adresse du pre- 
mier caractère de la chaîne. 

En sortie : Pas de code retour. 


LECTURE AU CLAVIER 
D'UNE CHAINE DE CARACTERES 


Cette fonction permet la saisie au clavier 
d'une chaîne de caractères avec visuali- 
sation des caractères saisis, prise en 
compte des caractères de contrôle tels 
que Backspace, etc. 

La saisie se termine normalement par un 
CR (Touche RETURN), mais peut être 
également terminée par le fait que le 
nombre maxi de caractères à saisir qui 
avait été spécifié est atteint. 

En entrée : C=10 

DE = Adresse d’une zone mémoire de tra- 
vail constituée de: 

— 1 octet contenant le nombre maxi de 
caractères à saisir. 

— 1 octet à zéro. 

— une zone du nombre d'octets spéci- 
fié par le 1er octet. 

En sortie : Pas de code retour. 

La zone mémoire de travail contient dans 
son 2e octet le nombre de caractères qui 
ont été saisis, qui eux se trouvent dans 
la zone qui suit immédiatement cet octet 
(voir listing 9). 


INITIATION A CP/M 


LECTURE DU STATUT DU CLAVIER 


Cette fonction qui fait double emploi 
avec d’autres qui ont été ajoutées dans 
les versions successives de CP/M reste 
présente pour des problèmes de compa- 
tibilité avec les versions antérieures (voir 
listing 10). 

En entrée : C=11 

En sortie : L’accumulateur A contient 
une valeur non nulle si un caractère est 
disponible et O sinon. 


LECTURE DU NUMERO 
DE VERSION DE CP/M 


Cette fonction sera très utile dans cer- 
tains programmes pour savoir si on a 
accès aux fonctionnalités de CP/M Plus 
ou non. 

En entrée : C=12 

En sortie : H contient la valeur O si on est 
bien sous CP/M (1 =MP/M). 

L contient le numéro de version sur les 
4 bits de poids forts et le numéro de 
release sur les 4 bits de poids faibles. 
Ainsi 22H veut dire CP/M 2.2, 31H veut 
dire CP/M Plus Release 1 (voir listing 11). 


Voilà c'est fini pour cette fois, vous avez 
déjà de quoi bien vous amuser et le mois 
prochain nous attaquerons les fonctions 
disques et fichiers. 


qe" Canard digital 


Listing 9 


Buffer : db 79 ; Taille maxi d'une saisie 
NbCar : db 0 ; Nombre de caractères saisis 
ds 80 ; Zone de manœuvre 
mvi c,10 
Ixi d,Buffer 
call BDOS ; Saisie d'une ligne 
Listing 10 
Attente : mvi ci ; Boucle 
call BDOS ; d'attente 
ora a ; de la frappe 
jz Attente ; d'une touche quelconque 
Listing 11 
mvi c,12 : Test ; 
call BDOS ; du numéro de version 
mov a,h 
ora a 
jnz NotCPM ; On est sous MP/M 
mov a,l 
cpi 30H ; CP/M Plus ou pas ? 
je CPM22 : Non on est en 2.2 


FLOOPY 


Le 1er magazine digital mensuel sur disquette 
CHEZ VOTRE REVENDEUR DE SOFT HABITUEL. 


e Les meilleurs programmes : les jeux, les trucs et les astuces, les utilitaires, 
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e La pub : les meilleurs logiciels du moment en démo. 

e Les concours : envoyez-nous déjà vos meilleures réalisations, jeux, utilitaires 
dessins, musiques … 


Les PROGRAMMES PUBLIES seront REMUNERES et PARTICIPERONT aux CONCOURS 


REVENDEURS : Contactez nos 
distributeurs agréés. 

° INNELEC : (1) 48.91.00.44 

e GUILLEMOT : 99.08. 90.88 

e PERITEK DCI : 78.22.13.11 
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Noël LAGNEU 


QUELQUES DETAILS 
SUR LES FICHIERS 
LOCOSCRIPT 


La publicité télévisée du mois de mars le 
montre encore : AMSTRAD a bien ciblé 
sa clientèle avec ses machines de trai- 
tement de texte PCW. Arrivées à un prix 
défiant toute concurrence, ces ensem- 
bles constituent l'outil par excellence 
pour la tenue d'un secrétariat, la rédac- 
tion d'un ouvrage ou la tenue d'une 
petite comptabilité. Le logiciel de traite- 
ment de texte LOCOSCRIPT y est bien 
sûr pour beaucoup. On en cite souvent 
les mérites : le prix bas, le grand choix 
de formats, l'impression intégrée, la con- 
vivialité, la souplesse d'utilisation. Quel- 
ques défauts cependant : pas de fonc- 
tion mailing pour le courrier personnalisé, 
pas de possibilité de changer les fontes 
de caractères, pas de composition mul- 


MICRO-INFORMATIQUE 


DECIBEL 


LE SPÉCIALISTE AMSTRAD 
+ 400 softs 


en stock 
permanent 


Tous les ouvrages 


sur Amstrad 


7, Bd du Lycée 
74000 ANNECY 
Tél. 50.57.70.41 
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ticolonnes.. Le plus grave dans tout ceci 
et qu'il est difficile, voire impossible dans 
certains cas, de remédier à ces défauts 
de l'extérieur. Pour une raison principale : 
LOCOSCRIPT n'est que partiellement 
compatible avec son système d'exploi- 
tation hôte, CP/M. On ne peut entre 
autre pas du tout intervenir dans le code 
du programme... Toute action sur un 
texte ne peut être exécutée qu'à la fin 
de son édition par LOCOSCRIPT. La 
relecture du fichier créé peut être effec- 
tuée sous CP/M en BASIC par exemple 
si le formatage du fichier est connu, on 
peut en modifier certains paramètres. 
Bien sûr, Locomotive Software, concep- 
teur du logiciel, conserve jalousement la 
façon de lire les renseignements inclus 
dans les fichiers de texte. Il devient par 
exemple très difficile d'écrire un pro- 
gramme BASIC capable d'imprimer n'im- 
porte quel texte LOCOSCRIPT comme 
LOCOSCRIPT lui-même ! 


L'objet de cette chronique est d'éclair- 
cir quelque peu ces problèmes. Nous 
allons montrer comment lire les fichiers 
texte et comment interpréter en partie le 
contenu de leur en-tête et de leur corps. 


LOCOSCRIPT ET CP/M : LES FICHIERS 


Le BDOS de CP/M, contenant toutes les 
fonctions utiles à la gestion des fichiers 
et de leurs enregistrements, est en apr- 
tie intégré à LOCOSCRIPT. Ainsi, la ges- 
tion des disques de traitement de texte 
est équivalente à celle des disques CP/M, 
bien heureusement : 

— la gestion de l'heure et de la date 
dans les répertoires des fichiers est 
impossible. Elle peut même provoquer de 


graves perturbations dans vos fichiers de 
texte ; 
— la protection par mot de passe est 
également interdite, sous peine des 
mêmes désagréments. 
Examinez le contenu d'une disquette 
LOCOSCRIPT à l'aide de la commande 
DIR. Comparez la liste de fichiers obte- 
nus à celle apparaissant lors du même 
examen par le programme de traitement 
de texte : la différence est sensible ! 
Seuls les fichiers texte contenus dans le 
groupe 0 sont mentionnés à l'écran. Ceci 
pourrait bien cacher une incompatibilité 
CP/M ! En fait, l'examen du répertoire 
disque à l’aide d'un moniteur de dis- 
quette (piste 1, secteurs O à 3) nous 
montre facilement que les fichiers ‘‘dis- 
parus”” sont tout simplement affectés à 
d’autres user's. Entrez par exemple la 
commande USER 1. Le prompt, ou mes- 
sage d'attente de CP/M devient 1A>. 
On remarque alors que l’ordre DIR affi- 
che les fichiers de la disquette qui étaient 
présents dans le groupe 1. Si on veut la 
liste de tous les fichiers présents, il faut 
donc visualiser le répertoire de la dis- 
quette, tous USER's confondus. Une 
option de l'ordre DIR le permet : 

A> DIR [USER = ALL] 
(les crochets entourant l'option sont 
obtenus au clavier respectivement par 
SHIFT et (, et par la touche 6 en minus- 
cule. Ils sont visualisés à l'écran en lan- 
gage O par les signes ° et 8). Sur l'écran 
s'affiche alors la totalité des fichiers tex- 
tes de la disquette, les fichiers affectés 
de numéros d'USER de O à 7 correspon- 
dant aux 8 groupes autorisés de LOCOS- 
CRIPT. Mais bizarrement, certains 
USER's de numéro 8 à 15 abritent aussi 
des fichiers ! (sur certaines disquettes de 
travail seulement, celles contenant des 
fichiers temporaires). Eclaircissons ce 


point : en examinant le contenu de la dis- 
quette par LOCOSCRIPT, cherchons à 
voir aussi les fichiers temporaires. A 
cette fin, il suffit d'appuyer sur F8 (SHIFT 
F7), et de valider l'option Temp. en 
appuyant sur +. Sur une disquette de 
travail normalement constituée (ayant un 
peu servi à la composition de textes), on 
trouve dans chaque groupe quelques 
fichiers temporaires : ce sont d’ancien- 
nes versions de textes, ou des fichiers 
volontairement effacés par F6. En effet, 
LOCOSCRIPT n'efface jamais complète- 
ment un fichier en une fois, et il faut sup- 
primer le fichier temporaire créé la pre- 
mière fois pour effacer totalement le 
fichier visé. Vous ne récupèrerez pas 
pour autant toujours tous les documents 
effacés : lorsque le moniteur de dis- 
quette de LOCOSCRIPT a besoin de 
place pour stocker un nouveau docu- 
ment par exemple, il sait aussi faire le 
ménage et supprimer les fichiers tempo- 
raires qui lui paraissent superflus ! Mais 
revenons à nos USER's : vous pourrez 
vérifier que le USER 8 contient les 
les fichiers temporaires dÜ groupe O, le 
USER 9 ceux du groupe 1..., et ainsi de 
suite jusqu'à USER 15 rassemblant les 
temporaires du groupe 7. Les documents 
LOCOSCRIPT de chaque groupe, exis- 
tant ou temporaires, sont ainsi bien ran- 
gés sous CP/M en étant affectés des 
numéros d'user de O à 15. 

Encore un détail dans l'organisation des 
disquettes sous LOCOSCRIPT : nous 
avons précédemment utilisé l'option 
Temp. de visualisation des fichiers à 
demi effacés. Une autre option de visua- 
lisation est possible, celle permettant de 
voir les fichiers cachés. Ceux-ci sont les 
fichiers programmes de LOCOSCRIPT. 
On y trouve au moins J21FLOCO.EMS 
(pour le lancement du programme) et 
SCRIPT.JOY. Ces fichiers peuvent aussi 
être visibles sous CP/M : ils y sont affec- 
tés de l’attribut SYS. L'ordre DIRSYS 
affichera donc à l'écran les fichiers 
‘’cachés'’" de LOCOSCRIPT ! 


STRUCTURE 
DES FICHIERS LOCOSCRIPT 


Le formatage des fichiers LOCOSCRIPT 
nest pas des plus conventionnels. Les 
lectures à longueur d'enregistrement fixe 
échouent, et nous allons utiliser une 
méthode d'examen octet par octet en 
BASIC. Nous aborderons ensuite l'aspect 
bipartite des fichiers LOCOSCRIPT : en- 
tête et corps. 

La visualisation à l'écran d'un fichier 
texte par l’ordre TYPE, comme s'il s’agis- 
sait d’un fichier ASCII, s'avère de peu 
d'intérêt : on voit apparaître à l'écran le 
mot JOY, suivi en général de la phrase 
‘Format pour les lettres’’, quelques 
signes cabalistiques et plus rien ! En fait, 
on se souviendra que cette phrase est 
aussi l'identité par défaut des documents 
LOCOSCRIPT. Si vous modifiez l'identité 
d'un document (mode édition de 


LOCOSCRIPT, F7, et option ‘‘Editer iden- 
tité’’}, un appui sur F2 durant la gestion 
du disque vous le confirmera, de même 
que l'ordre TYPE sous CP/M : celui-ci 
affiche le JOY conventionnel, suivi main- 
tenant de l'identité du texte ! 

Le programme BASIC LECTURE.BAS 
dont le listing accompagne cet article va 
nous permettre de débuter l'exploration 
des fichiers texte de LOCOSCRIPT. Quel- 
ques commentaires qui peuvent être 
utiles : 

— ligne 150 : ouverture du fichier texte 
en accès direct avec une longueur d'en- 
registrement de 1 octet. La base du trai- 
tement va consister à lire octet par octet, 
le fichier, sans souci du formatage 
adopté par les programmeurs de LOCOS- 
CRIPT. La fin de la lecture interviendra 
lors de la fin de fichier, signalée par le 
système ; 

— lignes 210-220 : l'ordre GET équi- 
vaut à un lecture. Seul le premier octet 
du tampon a une signification et appar- 
tient au fichier. L'ordre FIELD confère à 
la variable B$ cette valeur. 

— lignes 280-320 : on imprime le con- 
tenu du fichier, 16 octets par 16 octets 
avec la traduction ASCII de ces valeurs 
lorsque c'est possible ; 

— lignes 370 : en cas de fin de fichier, 
fermeture conventionnelle et fin du 
programme. 

La figure 1 illustre le résultat pour le 
fichier ESSAI. Celui-ci a été créé de la 
manière suivante : à l’aide d’une copie 
de la disquette originale de LOCOS- 
CRIPT, on demande une création de 
fichier dans le groupe ©. On quitte alors 
le document ainsi créé sans le modifier : 
il contient simplement l'en-tête tradition- 
nelle de cette disquette (Figure 2). 
Après quelques essais d'utilisation de 
LECTURE sur différents fichiers, on 
s'aperçoit que d'une manière générale 
les textes sont structurés en deux 
parties : 

— l'en-tête de fichier comportant en 
général 256 octets, quelquefois plus. Elle 
intègre l'identité du texte et ses formats ; 


— le corps du fichier, comportant le 
texte en lui-même et tous les codes pro- 
pres à LOCOSCRIPT. 

Nous allons examiner plus en détail cha- 
cun de ces éléments dans les paragra- 
phes suivants. 


EN-TETE DES FICHIERS LOCOSCRIPT 


Cette première partie d’un texte est com- 
posée d'au moins 256 octets. Nous 
allons en donner une description som- 
maire, dans la mesure où nos investiga- 
tions ont porté leurs fruits. La méthode 
générale consiste à modifier un paramè- 
tre du texte, et à comparer ensuite ori- 
ginal et dérivé à l'aide du programme 
BASIC précédent. Ce qui suppose beau- 
coup de temps, car il faut utiliser alter- 
nativement BASIC et LOCOSCRIPT... 

Plusieurs grandes parties peuvent être 


isolées. Nous nous référerons souvent au 
dump du fichier ESSAI (figure 1) pour 
fixer les idées. 

— Octets 1 à 95 : identité 

Les trois premiers octets sont immuable- 
ment les 3 lettres JOY, qui constituent 
une marque de fabrique des fichiers 
LOCOSCRIPT. De l'octet 6 à l’octet 95 
est stockée l'identité du texte, codée en 
ASCII. Ceci explique en partie le compor- 
tement de la commande TYPE sur ces 
fichiers ! 

— Octets 96 à 120 : format général 
C'est la partie la plus ténébreuse et la 
plus secrète de l'en-tête. Nous allons 
donner une description des octets dont 
nous avons deviné la signification. Tous 
les élémenst d'information inclus ici sont 
accessibles en mofication à partir de 
l'édition de l'en-tête dans LOCOSCRIPT 
(menu édition, touche F7, édition en- 
tête) et par le sous-menu options à l'in- 
térieur de celle-ci (touche F7 une 
seconde fois).  ; 

Octets 96 : nombre de formats diffé- 
rents autorisés dans le texte (5 par 
défaut). 

Octet 97 : nombre de tabulations maxi 
(10). 

Octet 98 : point décimal ou virgule pour 
les tabulations décimales (44 ou 46). 
Octet 99: dessin du zéro numérique 
(barré ou non suivant les pays). 

Octet 100 : lignes isolées permises. 
Octet 101: paragraphes coupés 
autorisés. 

Les données suivantes ont trait entière- 
ment à la pagination, à la présence de 
pieds de page et en-têtes et à la mise en 
page (nombre de lignes : octet 106, taille 
zone en-tête : octet 113, position en- 
tête : octet 114, longueur du pied : octet 
120, position du pied : octet 121...). 
— Octets 120 à 256: formats 
particuliers 

Dans cette dernière partie, chaque for- 
mat particulier est décrit par une ving- 
taine d’octets au moins. Cette quantité 
peut être plus importante si un nombre 
de tabulations autorisées supérieur à 10 
est utilisé. De même, l'en-tête peut com- 
porter plus de 256 octets si le nombre 
de formats utilisé est important. La figure 
2 rassemble les éléments d'information 
sur la signification de ces 20 octets. On 
peut noter qu'ils correspondent très 
exactement au sous-menu Format de 
LOCOSCRIPT (touche F2) : on trouve 
dans l'ordre le pas de caractères, l'espa- 
cement des lignes, l'interligne, l'italique 
et la justification (ligne supérieure) ; sui- 
vent les marges droite et gauche, ainsi 
que les différentes tabulations (ligne 
inférieure). 

Il nous reste à décrire en détail le corps 
des fichiers LOCOSCRIPT. Le formatage 
spécial, la codification propre à Locomo- 
tive Software des attributs de texte 
nécessitent un développement incompa- 
tible avec la longueur de cet article. Notre 
prochaine digression traitera donc de ce 
sujet, et nous créerons quelques petits 
programmes utilitaires mettant en appli- 
cation ces éléments. 
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146 6F 72 60 61 742 
0 6C 65 7472472657 


() F 75 72 
3 
0 20 20 20 20 20 20 20 
() 
() 


0 20 20 


6 J0Y, ,Foraat pour 
2 

20 20 20 

2 

2 


les lettres, 
0 20 20 20 20 20 20 2 0 20 20 
0 20 20 20 20 20 20 2 0 20 20 
0 20 20 20 20 20 20 20 20 20 20 0S 
0 00 00 09 00 8C 00 01 00 01 00 FF 

IA 00 0E 84 81 0D 00 27 00 02 82 

2 06 00 00 00 DE 12 16 IA IE 3C 


7 
2 
2 
2 
2 
2 


00 00 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 00 00 
0 00 00 00 00 00 00 00 00 00 
0 00 00 00 00 00 00 00 00 00 
0 00 00 00 00 00 00 00 00 00 
0 00 00 00 00 00 00 00 00 00 


02 00 81 00 00 00 00 00 OA 94 C8 82 00 89 00 OA 
C8 00 88 08 86 9C 04 76 6F 74 72 65 81 61 64 72 
65 73 73 65 88 02 86 A0 05 88 02 86 68 01 89 04 
0E 18 01 89 04 12 68 01 89 04 16 88 01 89 04 IA 
08 02 89 04 1E 58 02 89 04 3C BO 04 64 61 74 65 
88 02 86 A0 05 88 02 86 CB 00 89 04 0E 18 01 89 
04 12 68 01 89 0 88 01 89 04 IA 08 02 89 04 
1E 58 02 89 04 4 64 65 73 74 69 6E 61 74 
6169372658 0 05 88 02 86 A0 05 88 02 
86 A0 05 88 S 88 02 86 3C 05 43 68 65 
0 00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 00 00 
00 00 00 00 00 00 02 00 


16 
80 
86 


4 
€ 
2 
6 
0 
0 
0 
0 
[) 
0 


3 () 
CA A 
02 86 A0 0! 
80 00 00 0 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 
00 00 00 00 


Listing de LECTURE,BAS 


100 ‘ 

110 ‘ Lecture de fichiers LOCOSCRIPT 

120 ‘ 

130 DIM tt#(256) 

140 INPUT * Nos du fichier : “,nosficé 

150 OPEN °R°,1,nonfics,1 

160 ‘ 

170 ‘ Boucle sur les secteurs 

180 ‘ 

190 ord=0 

200 FOR i=1 T0 256 

210 GET #1:1F EOF(1) THEN 6070 270 

220 ordÿ=ord#+l FIELD #1,1 AS b$:ttf(ord4)=ASC(bS) 
230 NEXT 

240 ‘ 

250 *  Iapression des octets lus et duap 

260 

270 indx=0 

280 FOR iz1 TO FIX(ord4/16) 

290 b#="":FOR j=1 TO 16:indf=indt+litr£=ttf(ind#); PRINT HEXSCErE,2)+" *: 
300 atr£=tr4:lF atr4(32 OR atr4>127 THEN atri246 
310 b$=b#+CHRS(atrA):NEÂT j:PRINT * HbS:NENT i 
320 PRINT 

330 ‘ 

340 ‘ Boucle sur les secteurs 

350 ‘ 

360 IF NOT EOF(1) THEN GOTO 190 

370 CLOSE (1):END 
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Fichier ESSAI 


votre adresse 


date 


destinataire 


J° Octet 


1 


PARAMETRES DE FORMAT 


Signification dans le format 


Pas de caractères dans le format 
I1 est codé comme suit: 
Pas de 10 CPI 


Nombre de lignes par inch 
6 LPI 
8 LPI 


Pas de l'interligne. 
IL 0 
IL % 
IL 1 
IL 1% 
IL 2 
IL 2% 
IL 3 


Marque d'italique/justification 
Jon just. on ital. 
on just. Ital. 
Just. Non ital. 
Just. Ital. 


Position marge gauche 

Position marge droite 

Sombre de tabulations normles 
Nombre de tabulations droites 
Nombre de tabulations centrales 
Nombre des tabulations décimiles 


Valeur 


&h18 
&h58 
&h14 
&h54 
&h10 
&h50 
&h0E 
&h4E 


&h48 
&h36 


ON & OU Nm Oo 


Positions des différentes tabulations 
dans leur différents types, par ordre 


croissant. 


RUBIS 
DE DEIA 


Nous avons déjà quelquefois parlé des 
oroduits édités par cette société. Leurs 
noms sont décidément très minéraux ! 
Après QUARTZ et SAPHIR, voici RUBIS, 
gestion de compte. 

Ce logiciel ne se réclame pas du tout de 
la comptabilité. || permet la gestion d’un 
journal bancaire, ou de trésorerie, et intè- 
gre jusqu'à 32 comptes paramètrables, 
débiteurs ou créditeurs. 

Quelques applications possibles : 

— gestion familiale avec en créditeur les 
salaires, allocations familiales et autres 
entrées éventuelles, et, en débiteur, les 
très classiques frais de transport, loyer, 
alimentation, etc. ; 

— gestion de compte bancaire, avec 
notions de débit-crédit par poste d’acti- 
vité : prélèvements automatiques, paie- 
ment par chèques, paiement par effet, 
recette espèces, recette chèques. 

— gestion de trésorerie pour comptabi- 
lité simplifiée : recettes-dépenses sur 32 
postes analytiques ! 

En capacité, RUBIS sait gérer 1000 écri- 
tures pour un journal sur le lecteur À, et 
4000 écritures sur le lecteur B. 

Au lancement du programme, plusieurs 
options sont offertes : création d'un dos- 
sier en lecteur A ou B, ou utilisation du 
logiciel sur un journal donné (figure 1). 
L'éditeur permet la saisie d'un mouve- 
ment sur un compte donné, avec réfé- 
rence et commentaires, où la recherche 
d'une opération précédente par sa réfé- 
rence. On peut obtenir la liste des opé- 
rations à l'écran ou à l'imprimante, par- 
tielles ou totales. Lorsque la disquette a 
besoin d'être nettoyée pour cause d'en- 
gorgement, il faut utiliser la centralisa- 
tion, dans ce même menu. 

L'intérêt de cette gestion de comptes 
réside dans le traitement analytique 
offert par le programme. L'évolution de 
chaque compte paramétré peut être 
visualisée sur l'écran. Vous pourrez ainsi 
surveiller et comparer vos dépenses en 
matière d'habillement et de loisirs! Cette 
évolution peut aussi être obtenue pour 
le cumul global du journal. 

En résumé, un logiciei utile et agréable, 
idéal pour gérer une trésorerie avec des 
comptes analytiques ou un budget fami- 
lial. 
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À L'OUEST DU NOUVEAU 
Micronaute 


9, rue Urvoy de Saint Bedan 


44000 NANTES 
Tél. : 40.69.03.58 


SPECIALISTE AMSTRAD 


Toute la gamme CPC et PCW 
aux prix AMSTRAD 
avec le service MICRONAUTE 


STATION TECHNIQUE 
Dépannage rapide sur place. 
AMSTRAD. ATARI ST. COMMODORE. 
THOMSON. 


SERVICE FORMATION 
e Locoscript + D Base Il - Multiplan 
Ex. : Locoscript 3 j 1690 F TTC 
{conventions de stages possibles) 


LIBRAIRIE : MICRO APPLICATION 
PS. 
SYBEX 
EYROLLES, etc. 


LOCATION 
(8256) 


SPECIALISTE AMSTRAD PC 


RESERVEZ-LE MAINTENANT : 
Monochrome Couleur 
PC 1512 SD 4997 F HT [PC 1512 SD 6890 F HT 
PC 1512 DD 6290 F HT [PC 1512 DD 819F HT 
PC 1512 HD 20 9990 F HT | PC 1512 HD 20.11890 F HT 


DMP 3000 1930,86 F HT 
DMP 4000 3447,00 F HT 


SELECTION MICRONAUTE 


* SOFTS 
NOUVEAUTES, arrivages toutes les semaines 
SPECIALISTE : LORICIELS 
ERE Informatique 
ACTIVISION 
ELECTRIC DREAMS, 
UTILITAIRES : Traitements de texte 
Fichiers 
Taoleurs 
Compta facturation, 
LOGICIELS EDUCATIFS 
MASTERTRONIC : 29,90 F 
Nombreux titres 
NOMBREUX JEUX 8256 


* EXTENSION MEMOIRE DK TRONIC 
* DIGITALISEUR D'IMAGES 

* CORDON 

* RUBAN IMPRIMANTE 

* HOUSSES 


NW INTERFACE TUNER TV. 
16 chaînes pré-programmables PAL/SÉCAM. 
Prise Péritel - Comp. Canal + - Branchement 
Spécial AMSTRAD 


M VPC envoi rapide 
Commande : Tél. : 40.69.03 58 
Micronaute VPC 
9, rue Urvoy de St Bedan 44000 Nantes 
Port : 20 F Softs 70 F Machine 
+ 30 F contre remboursement 


RSX SYSTEME 


Alain BARRAUD 


vénéré, se trouve un système d'exploitation dont on peut utili- 


TT: amstradiste amoureux de sa bécane sait que, sous son capot 


ser les routines. Ces routines sont accessibles par l'intermédiaire 


d'un 


bloc 


de saut où se trouvent des vecteurs qui vous propulsent directement 
aux routines désirées. C’est ce bloc de saut, commun aux 3 CPCs, 
ui assure (s’il est utilisé) la compatibilité entre le 464, le 664 et 
128. Ceci veut dire que si vous placez dans un programme quel- 
conque CALL &BB06, le résultat sera le même sur les 3 modèles mal- 


gré les Roms différentes. 


Certaines de ces routines sont déjà utili- 
sables à partir du BASIC, mais la majo 
rité nécessite le chargement d’un ou plu- 
sieurs registres avant le CALL, ce qui 
n'est possible qu'en assembleur (ou en 
incluant du langage machine dans le pro- 
gramme, quel que soit le langage de pro- 
grammation utilisé). L'utilitaire proposé 
ici, résout ce problème en vous fournis- 
sant des extensions au BASIC sous la 
forme des RSX suivantes : 


IREGISTRES affiche le contenu des registres, flags compris. (utile en 


mode direct uniquement). 


Chaque mot place en fait la valeur se 
trouvant après la virgule dans une case 
(ou deux) de la Ram. Le mot ISYS- 
CALL,nn récupère dans ces cases les 
valeurs destinées aux différents regis- 
tres, les charge, fait le CALL à la routine 
nnet, au retour de la routine, met le con- 
tenu des registres dans les cases déjà 
mentionnées. Ce contenu est visible 
avant ou après appel de la routine grâce 
au mot IREGISTRS. 


LEE CCE 
64406 RETUERA 


LISTING 2 
DO tee detecte be eee de de ee ee eee eee tee | 160) DATA 
PQ ‘+ RSX Systeme +| 190 DATA 
ni 2 a fu a ao ou ufr ua ee ef eu fe ee fe eee 1 80) DATA 
40 FOR amtA440 TO 8RA676 210 DATA 
HO READ b#éiFORE a, VAL (Mel é) ee DATA 
60 NEXT a es@ DATA 
70 CALL #&A440 #40 DATA 
80 ‘ 20 DATA 
9Q SAVEMREGS, HIN'!",b,RA440, RES, RAAA4O 260 DATA 
100 ‘ #74 DATA 
110 END 280 DATA 
120 ‘ 290 DATA 
150 DATA DI,4A,A4,RL,ES,AS,CD,DI 300 DATA 
140 DATA BC,C9,70,A4,C05,AC, A4 CS 410 DATA 
1950 DATA Ré,A4,CS,CO,A4,CS,CA,A4 “20 DATA 
160 DATA C5,D7,A4,C%,E1L,A4,CS,ERB DATA 
170 340 DATA 


DATA A4,C3,FB,A4,C3,02,A5,C3 


Si vous désirez connaître le contenu des 
registres pendant le déroulement d'un 
programme (BASIC), il suffit de faire cha- 
que fois : 

GOSUB 60000 | 

en ayant eu soin de loger dans votre pro- 
gramme les lignes suivantes : (listing 1) 


Il peut être bon de souligner que de nom- 
breuses routines ont leur équivalent dans 
le vocabulaire BASIC et qu'il est peu utile 
de les employer. 

Cherchez donc celles qui ne correspon- 
dent pas à un ordre BASIC. En voici deux 
exemples : la première remplit un rectan- 
gle avec une encre donnée (&BC44) et 
la deuxième déplace une certaine quan- 
tité d’octets d’une zone de la mémoire 
vers une autre (&B91B). 

A vos routines | 


LISTING 1 

IREGA,n charge la valeur n (0 à 255) dans le registre A 37777 A 0 
IREGB,n Bl 59906089 + SG Frogramme registres + 
IREGC,n C| S00O0S ‘Labbe debhbdb dde 
IREGD n s 49999 PRE EE LE re ; 
IREGE,n Er bee L (RASDE) «À CRÉAS DE) 
IREGH,n H) 6601 CHASDE) ses C&A STD) 
IREGL,n L Ne es Dé Ame 

BLUE de CUASEE) sex CSD) 
IREGBC,nn charge la valeur nn (0 à 65535) dans le registre BC| GET MeæMEER  CRASES) s lee CUAGE 1) 
IREGDE,nn . E LCA CA LC mb UNE EL pe 
IREGHL,nn He, 29046 berb#2Sé+c 

LOGS derdrsisét+e 
ISYSCALL, are à la routine système nn grâce au chargement des| 46163464 hlzhx2S6+l 

ist SX ci- : Res . . à 

DARANE PA ER RERERENE 6667 carryæf AND &Xi:seromf AND &xX 


@ 


QC ,AS CE, 19 ASC, SL, AS 
Sao A à 47 CL 4 sou y 49 y 47 pb 
SD à Sd 9 7 9 Cou 9 a y 69 y 47 ne 
4 es 46 9 47,04, 4 4 
CS 0 à 8 9 7 à 64 9 CS 9 No 9 
47,08, 02 à 48 3 47 y Cole y vo y 4 
47,48,00,55,5 


a 
Te y 


,DE 
GD,C8,45,DD,7E,00,%2,DD 

5,C9,CD,C8,45,DD,66,0@1 
DD,6E,00,22,DD,A5,C9,CD 
CS,A5,DD,7E,00,22,E0,A5 
C9,CD,C8,A5,DD,7E,00,%2 
DF,45,C9,CD,C8,45,DD,66 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DATA: 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


ER O2 “SN ON “HR ST SR “HZ Sn E3 22 22 “25 22 SN 28 22 28 ss: 


ER 32 ON 29 SN «SO “SZ +32 SX ss en ss 2 


ee E X TENS I ONG 


Ce programme permet , 
routines systeme du CFC 464-664-8128 en ayant charge 


registres toujours a partir du Hasic. 


G1,DD,6E,00,22,DF,45,C9 
CD,C8,45,DD,7E,00,32,E2 
AS,C9,CD,C8,A5,DD,7E,00 
22,E1,45,C9,CD,C8,A5,DD 
66,01,DD,6E,00,22,E1,A5 
C9,CD,C8,A5,3%A,DC,A5,ED 
4B,DD,A5,ED,5E,DF,A5,24A 
E1,45,E5,DD,6E,00,DD,66 
01,22,3%6,A5,E1,CD,35,A5 
ED,43,DD,A5,ED,53,DF,A5 
22,61,45,F5,E1,22,DB,A5 
C9,0E,30,71,C9,0E,31,71 
C9,21,5E,06,%A,DB,A5,06 
08,23,17,DC,4D,A5,D4,49 
A5,10,F6,%A,DC,AS,21,55 
A6,CD,AS,AS,3A,DE,A5,21 
15,46,CD,A5,45,%A,DD,A5 
21,17,46,0D,A5,A5,3%A,E0 
A5,21,29,A6,CD,A5,A5,%A 
DF,A5,21,28,46,CD,A5,A5 
3A,E2,A5,21,2D,46,CD,A5 
AS,TA,EL,45,21,3%F,A6,CD 
A5,A5,C0%,B6,05,5F,0F,0F 
OF ,0F,E6,0F,CD,BD,A5,7B 
Eb,0F,CD,BD,A5,C09,21,04 


FOUR 


par 


au préalable , 


:REGH,n 


EARKAUD Alain 


a partir 


600 
610 
620 
650 
640 
650 
660 
670 
680 
690 
700 
710 
720 
750 
740 
750 
760 
770 
780 
790 
00 
#10 
90 
50 
#40 


LE BASIC 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DAT A 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATE 
DATA 


du Hasic, 


nn dans le 


Les nouveaux KSX sont : 
1REGÉ, mn 

charge la valeur (8 bits) n dans 
IREGE,n 

charge la valeur (8 bits) n dans 
IREGE,n 

charge la valeur (8 bits) n dans 
1REGEC, nn 

charge la valeur (16 bits) 
1REGD,n 

charge la valeur (8 bits) n dans le 
IREGE,n 

charge la valeur (8 bits) n dans le 
iREGDE, nn 

charge la valeur (16 bits) 


A6,CD,D1,45,C9,FE,0A,:8 
U2,C6.07,C6,30,77,23,09 
FE, Q1,C2,CE,AS,C9,21,E7 
A5,7E,FE,00,C068,CD,5A,BE 
23,18,F6,00,00,00,00,@0 
00,00,00,00,00,20,00,4E 
&F,6D,62,72,65,20,64,27 
61,72,67,75,6D,65,6E,74 
75,20,69,6E,6%,6F,72,72 
65,6%,74,00,0A,0A,0D,52 
65,67,69,73,74,72,65,%0 
42,43,34,20,25%,30,30, 20 
:0,0A,0D,52,65,67,69,72 
74,72,65,20,44,45,%A,%0 
2E,50,%0,30,%0,0A,@D,%® 
65,67,69,7%,74,72,65,20 
48,40,%0,20,23,30,30,5%0 
30,04,0D,52,65,67,69,7% 
74,72,65,20,20,41,%A,%0 
DE,20,20,20,%0,0A,0A,@D 
46,60,61,67,75, 34,20 ,%0 
:10,20,%0,%0,%0,%0,20,0@A 
AD,20,70,20,20,20,20,%0 
H%,54,20,48,2D,50,4E,4% 
ave 


TE TE PCT es 


les 
les 


d'utiliser 


le registre 
le registre E 
le registre C 
registre EC 
registre D 


registre E 


nn dans le registre DE 


«96 0 0 


486 
496 
55 (4€ 
16 

4 


ve) 


er PT 
46 
rte 
66 
76 
ports La 


56 
TT 
7€ 
DS IE 
E96 
746 


7164 


784 


796 
(SLA LE 


16 
26 


346 
356 
866 
376 
886 
396 
ETS Te) 


84 


charge la valeur (8 bits) 
1REGL,n 
charge la valeur 
1 REGHL, nn 
charge la 
SYSCALL,nn 
appelle la routine 
du chargement des 
RSX ci-dessus 
REGISTRES 
atfiche le 
peut etre 


(9 bits) 


valeur (16 bits) 


registre 


contenu des 
utilise avant 


reg 


Cas 


DZ SE HS SU “HU 3 HS “HU 38 SN AN “HR er en ss 


#46 ï 
ÉA 

mu Crea tion 
LD 
LD 
CALL. 
RET 


DERBUT : EC, COMEXT 5 
HL, TAMFON ; 


#ECD1 ï 


; te cminsnétà atons docon count dés done amie 60008 606; anse vos anon ln niv té atome ces acen sunée lame dou = LA | b | a d € 
COMEXT: DEFW TABLE 
JF 
JF REGE 
JF R 
JF 
JF 
JF 
JF 
JF 
JF 
JF 
JF 
JF 


REGERC 
REGD 
REGE 
REGDE 


REGHL 
SYSCALL 
REGS 

D ee a ee nouvelles 
DEFM 
DEFE 
DEFM 
DEFE 
DEFM 
DEFE 
DEFM 
DEFH 
DEFH 
DEFE 
DEFM 
DEFE 
DEF 


"REG" 
“A"+#86 
"RÈG" 
"E"+H00 
REG" 
"C"'+#80 
"REGE" 
"C'+4#86 
"REG" 
“D'"'+#80 
REG" 
"EU+#06 
“"REGD" 


TABLE : 


systeme nn en 


n dans le registre H 


n dans le registre L 


nn dans le registre 
tenant compte 


S eTfFectuUe grac& alx 


Vérification 
selon le 


istres pour 
apres l'appel, 


ALILEUFS Eli vous voulez. , 


des SX 

adresse de la table des commandes 
adresse de 4 octats pour le moyau 
introduction de nouveaux KSXx 


Saut 


Si vous avez l'intention de CREER 
ou si vous avez déjà cré 


VOTRE BOUTIQUE INFORMATIQUE 


commandes 


redoignez nous avec la franchise 
SON VIDEO 2000 et devenez un 
distributeur POINT MICRO pour 
MOINS DE 20 000 Frs !1! 


DISTRIBUTEUR AGREE AMSTRAD, COMMODORE 
ATARI,ORIC et COMPATIBLES PC . 


RENSEIGNEMENTS 
Tél. 56.91.15.81 


916 
926 
Fe 
940 
56 
EAST) 
976 
986 
996 
196 
1416 
RSS) 
RSI 
1446 
1956 
1066 
1976 
1486 
193096 
1166 
1116 
1126 
1156 


1186 
1196 
1206 


1546 
LISE 
1566 
1276 
1:86 
1:96 
14686 
1416 
1426 
14256 
1446 
1456 
1 4663 
1476 
1486 


DEFE "E"+H80 
DEFM "REG" 
DEFE "H°+#86 
DEFM UKREG" 
DEFE "L4#HBE 
DEFMH CREGH" 
DEFEH "L'+H#B6 
DEFM "SYSCAL" 
DEFER "L'+#86 
DEFM "REGISTRE" 
DEFR "S"+#80 
DEFE € 


NACRE CALL N._ARG 
LD y CIX+E 
LD (REG _AF +1), 
RET 


#2 


REGE : CALL N_ARG 
LD À, (CIX+6) 
LD (REG_BC+1) ,À 
RET 


REGC : CALL N_ARG 
LD  A,(IX+6) 
LD (REG_EC) , À 
FRET 


L 


REGEC:  CALL N_ARG 
LD  H,(CIX+1) 
LD  L,(IX+&) 
LI (REG EC) , HL 
RET 


dus 
4 


REGD:  CALL N_ARG 
LD A, CIX+6) 
LD (REG _DE+1),A 
RET 


REGE:  CALL N_ARG 
LD A, (IX+6) 
LD  (REG_DE),A 
RET 


REGE 


REGEC 


REGD 


REGDE 


verifie le nombre d'arguments 
srecupere l'argument 
sstockage a une adresse reserve 


sverifie le nombre d'arguments 
srecupere l argument 

sstockage à une adresse reserve 
sverifie le nombre d'arguments 
yrecupere l'argument 

sstockage a une adresse reservee 


sverifie le nombre d'arguments 
srecupere octet poids fort de l'arg, 
“recupere octet poids faible 


stockage a une adresse FéeServes 


spareil que pour REGA ,REGE où REGL, 


sc'est toujours la meme chose 


«9 60 © 


1496 
1566 
1516 
1526 
1539 


1548 


1556 
1566 
1574 
1586 
1596 
18066 
1618 
167% 
1676 
164 
1656 
166% 
1676 
1884 
1696 
1796 
1716 
1726 
1736 
1746 
1754 
1766 
1776 
1786 
1796 
18646 
1819 
182@ 
1856 
1846 
1856 
1866 
187% 
1884 
1896 
1956 
1916 
1926 
1936 
1946 
1956 
1966 
1974 
1984 
1998 
RAS ISIS 
616 
2426 
POTE 
26446 
2650 
2066 


86 


REGDE:  CALL N_ARG sc'est le train-train 


LD H, CIX+1) 
LD L, CIX+6&) 
LD (REG _DE) ,HL 
RET 
See messe REGH 
REGH : CALL N_ARG sj' aurais du ‘mettre en facteur’ 
LD A, CIX+6) 
LD (REG _HL+1),A 
RET 
pee meme em meneee REGL 
REGL. : CALL N_AKG 3; bla bla bla... 
LD A, CIX+6) 
LD (REG _HL) , À 
RET 
nets esse ssess  NEGAE 
REGHL:  CALL N_AKG y etc... 
LD Hs CIX+1) 
LD L, CIX+6) 
LD (REG _HL) , HL 
RET 
go ee GG ALL = appel routine systeme 
SYSCAL: CALL N° 6RKG sveritie nombre d'arguments 
LD A, (REG _AF+1) 3les valeurs predemment stockées 
L.D BC, (KEG_RBC) dans des adresses reservees 
LCD DE, (REG_DE) ;sont recuperees et placees 
L.D HL, (REG HL) sdans leurs registres respectifs 
FUSH HL 
L.D L, (IX+4) soctet poids faible 
LD H, CIX+1) set poids fort de la routine 
LD CE+S) , HL sa mettre apres le ‘call 
FOF  HL 
CALL & le à reserve 2? octets pour le call 
LD (REG_HC), BC srecuperation des registres 
LD (REG_DE),DE set stockage aux adresses 
LD (REG_HL), HL sreservees pour l'utilisation 
FUSH ÀF sde la commande :KEGISTRES 
FOF  HL squi en affichera 
L.D (REG _AF),HL le contenu (meme les flags) 
RET set hop la! demi-tour... 
dés eee eee REGISTRES 
MISAG: LD C,"eo" ssous-prog de mise d'un "6" 
LD CHL) ,C sdans une chaine 
RET 
MISA1: LD Ci “TL ;sous-prog de mise d'un “i" 
LD CHL) ,C sdans une chaine 
RET 


2676 
2486 
2490 
7196 
2116 
2124 
2156 
2149 
2154 
2166 
2176 
2186 
2199 
22606 


2216 


2256 


2266 
2276 
2286 
2298 


2566 


2586 
23:96 
4646 
2416 
2476 
2436 
244ù 
2456 
2466 
247@ 
2486 
2496 
25606 
2516 
2526 
PSE 


2546 
2556 
2566 
2576 
2586 
2596 
MST 
2616 
2620 
2636 
- 2648 


REGS: LD  HL,F#-1 
LD A, (REG_AF) 
LD E,8 

CONVE: INC HL 
RLA 


CALL C,MISAI 
CALL NC, MISA® 
DJNZ CONVE 


SUITE: LD  A,(REG_AF+1) 
LD  HL,A# 
CALL CONVH 


LD  A,(REG_EC+1) 
LD  HL,EC# 

CALL CONVH 

LD A,(REG_BC) 
LD HL,EC#+? 
CALL CONVH 


LD  A,(REG_DE+1) 
LD HL,DE$ 

CALL CONVH 

LD A, (REG_DE) 
LD  HL,DES$+® 
CALL CONVH 


LD A,(REG_HL+1) 
LD HL,HL# 

CALL CONVH 

LD A,(REG_HL) 
LD HL,HL#+? 
CALL CONVH 

JE FIN 


Conversion Hexka-Âscii 


adresse chaine-des-flags moins 1 
spoids faiblerflags dans À 
svaleur de boucle 

svaleur a tester 

sdecalage pour savoir 

sy taire stocker "Mi" 

faire stocker "Ga" 

sc 'est le bout d'la boucle 


spoids forts dans À 
sadresse pour stocker resultat 
sde conversion en  chaine-h&xa 


sidem pour EC 


sidem pour DE 


sidem pour HL 


on approche... 


sen traitant quartet de gauche puis de droite 
;ssachant qu'un quartet a une valeur de & a 15 


CONVH: LD  E,A 
RRCA 
RRCA 


AND %1111 
CALL CONVE 
LD  A,E 

AND %1iiii 
CALL CONVE 


RET 

FIN: LD HL,REGS 
CALL FRINT 
RET 


ï 
CONVZ: CF #A 
JR C,CHIFFR 
ADD AÀ,7 


les 8 bits en stock dans E 
54 rotations pour recuperer 
iles 4 bits de gauche 
squ'on va ensuite ausculter 
avec un CET’ logique 
c'est la 


son reprend la valeur stockee 


son ausculte les 4 bits de droite 


sadresse de la chaine des 
resultats des contenus des 
sregistres, ecriture get retour au Basic 


plus grand que 16 


311 y a 7 codes ascii entre $ &t 


111. 


26356 
266% 
2874 
2686 
2496 
2766 
271% 
2726 
27:26 
2746 
2756 
2766 
277% 
27686 
279% 
2866 
2816 
2826 
287 
2846 
2856 
2866 
2876 
2986 
2890 
2906 
2916 
2926 
2976 
2946 
29564 
29866 
2974 
2986 
2996 
ARTS TE) 
E416 


2646 
RTS het 


RASE 


ADD 
LD 

INC 
RET 


CHIFFK: 


ï 
= N_ARG-—— 
ï 
N_ARG: CF 
JF 
RET 


A,48 
(HL) ,A 
HL. 


1 
NZ, ERREUR 


me ERREUR 


5 
5 
5 
ERREUR: LD 


L 

FRINT: LD 
CF 
RET 
CALL 
INC 
JK 


2 ss es 


DEFS 
DEFS 
DEFS 
DEFS 


4 

REG _AF : 
REG_EC: 
REG_DE : 
REG. HL: 
TAMPON: DEFS 
DEFM 
DEFE 


MESSAG : 


sa partir d'ici 


ADRESSES 


HL., MESSAGE 


A, (HL) 
re) 

Z 
#BESA 
HL. 
FRINT 


RESERVEES--———— 


F3 F3 3 F5 


Es 


s48=code ÂAsScii du 


sy at-il un seul 
message d'erreur 


non € 
sy oui =% ÜF 


sadresse du message 


smettre dans À 
est-ce nul 

Si oui, demi- 
sSi non, 
soctet suivant 


set on continue 


12 octets pour 
idem 
idem 
idem 


28 -s2 +8 


4 octets pour 


“Nombre d'arguments incorrect" 


a) 


(en fait, 


la ou 


y le zero = 


y a des "") 


;sseront stockes les valeurs hexadecimales 
stransformees en chaine de caracteres 


DEFE 
DEFM 
DEFE 
DEFE 
DEFM 
DEFE 
DEFE 
DEFM 
DEFH 
DEFE 
DEFM 
DEFE 
DEFE 
DEFE 
DEFM 
DEFE 
DEFE 
DEFM 
DEFE 


REGS: 


AC: 


DES: 


HLS: 


F#: 


14,14, 12% 
"Registre BC: #" 
LL a) LL ; QE LL , DS. LL y Li 
14,15 

"Registre DE: #" 
NS] LL , LL a LL " LL SR : QUE RU 
14, 15 

"Registre HL: #" 
mean , Ma 13 ” np » a" 
14,175 

"Registre À: #" 


AE ME 
ta quai 


ven : NE 
19,16,1 
"Flags: 
ne LL " un [a] LL ’ 
19,15 

u 


LL ga" 5 DT D ; 


SZ--H-PNC" 
3 


FU HEATH 4 
ne ; Le] y ‘o y Ga" 


zero à ajouter 


arguments 


dans HL 


l'octet a ecrire 


tour 
on l'écrit 


iusqu'au ‘6° 


le registre AfF 
El. 
DE 
HL. 


la routine #BCDI 


fin de chaine 


URGENT 


Occasion à saisir sur Bor- 
deaux, livré clés en mains, 
point de vente micro agréé 
AMSTRAD, ATARI, 


COM- 


MODORE. 


C.A. actuel minimum : 
300000 F/mois. 
Pour tout renseignement 


Tél. 56.91.15.81 


Les CPC 464, 


.… PARLENT … 


664, 6128... 


.… JOUENT & 


VOUS APPRENNENT LA MUSIQUE … 


7 S 
7170. 


liaison 464 lecteur disquette 


Cass 
Disq. 


545 f 


SYNTHETISEUR VOCALT.M.P.I. — Parlefrançais, 
comme les Français. Une voix claire, sans souffle. 


Sortie son sur HP du CPC + extérieure (0 3,5 pour amplifi- 
cateur complémentaire). Très facile à utiliser avec le nouveau 
logiciel VOCA 100, à partir du texte simplifié + démonstrations 
+ PHONE 100. 


INCROYABLE ! SEPT LOGICIELS UTILITAIRES 
ET EDUCATIFS VOCAUX T.M.P.I.— Une voix 
réelle numérisée, codée, compactée. 


VOCACHIFFRES. — Apprentissage des chiffres et 
nombres (cours et exercices). 


des 


VOCALPHABET. — Apprentissage de l'alphabet, de l'écri- 


ture (cours et exercices). 


VOCACLAVIER. — Nomination des touches en program- 


mant. Listing parlant. 


VOCAGRAPHIQUE. — Création de mots, sons, modification de 
vocabulaires existants, création de 


phonèmes toutes langues. 


Cass. 
Disq. 
(le tout) 


195 f 


VOCA 1/FR. 
VOCA 2/FR 
VOCA 100 


300 mots courants français. 
300 mots courants français. 
Programmation vocale à partir du texte 


simplifié. 


AMPLIFICATEURS/HP. 
MONO 110 f 


220 f 


STEREO, BIMONCO. 


TECHNI-MUSIQUE & 
IMPE raro1 INFORMATIQUE 


Centre Commercial La Gantière 
Rue Fontaine du Bac 63000 Clermont-Ferrand 
Tél. 73.26.21.04 


SYNTHETISEUR MUSICAL. — MODULAIRE, Cass. 
ECONOMIQUE, ETONNANT... Synthétiseur musi-  PISq. 
cal 12 voies polyphoniques, stéréo. 980 f 
— Edition, composition de partitions. 

— Cours, exercices de solfège (4 programmes). 

— Modification graphique enveloppes de volume en stéréo. 


— Bibliothèque d'accords. (Doigté sur le clavier piano 
4 octaves). 


CLAVIER 4 OCTAVES. — Pour jouer en situation 


du musicien au milieu d'un orchestre. 1350 f 
Se transforme en système d'enseignement pratique du clavier 
(autodidacte) pour apprentissage 4 mains (soliste, basse, 
accords, contrechant). 

COURS « PRATIQUE DU CLAVIER » (1 et 2).— 
Pour apprendre, méthode progressive. Niveau 
1 et 2. (20 morceaux connus). Chaque niveau 


Cass. 
Disq. 


195 f 


LE SOLFEGE FACILE, AMUSANT. — Cours de 
solfège (niveau 1), cours, exercices. 

— Notes clé de sol, fa. 

— Rythmes, dictée de notes, clavier. Cass. 145 f - Disq. 195 f 
Cours de solfège (niveau 2), cours, exercices. | 

— intervalles, gammes, altérations. Cass. 145 f - Disq. 195 f 
Amstradivarius. Cass. 145 f - disg. 195 f 
— Composition musicale 3 voies. Facile, économique. 


= — — —— 
| JE DESIRE RECEVOIR : 

Û O une documentation sur les produits © VOCAUX 

| O MUSICAUX 

I O la liste des revendeurs « Produits T MP » 

NOM Prénom 

(l Adresse 

I 

| 

1 


DIS-CAS 


Patrice PETIT 


e programme permet de stocker sur cassette toute une face de 
disquette en une opération, dans le but d'obtenir une copie de 
sauvegarde pour les disques les plus souvent utilisés. Person- 
nellement, je l’ai aussi employé pour récupérer des disquettes con- 
tenant des programmes que je n'utilise jamais, mais que je ne vou- 


lais pas perdre définitivement. 


Attention, l'enregistrement sur cassette 
n'est pas utilisable directement, mais 
seulement pour écrire sur la disquette 
voulue grâce à CAS-DIS. 

Les instructions sont incluses dans le 
programme. Le fonctionnement est le 
suivant : 

— Affichage du catalogue de la dis- 
quette à sauvegarder. 

— Détermination du format grâce à 
l'adresse &A89F (système ou data 
seulement). 

— Recopie de l'écran texte du catalogue 
en &2000 (routine &AO29). 

— Sauvegarde de cet écran texte sur 
cassette (fichier binaire normal). 


— Lecture des 9 secteurs de chaque 
piste et stockage en &2000 (routine 
&A0O00). 

— Ecriture sur cassette de la zone cor- 
respondante en fichier ‘’headerless'" de 
4,5 ko (routine &AO1E) 

— Piste suivante, etc. 

— Une fois les 40 pistes transférées, on 
peut comparer l'enregistrement obtenu 
avec le contenu de la disquette (routines 
&A000 et &AO1E modifiées pour la 
lecture). 

NOTE : La vitesse d'écriture sélectionnée 
(environ 2200 bauds) permet le stockage 
de 2 diquettes complètes (4 faces) sur 
une cassette C60 


CAS-DIS 


Ce programme est le complément du 
précédent, il permet la transcription sur 
disquette de l'enregistrement obtenu sur 
cassette. 

Attention : il ne peut être utilisé que pour 
les cassettes écrites par DIS-CAS. 

Le programme charge d’abord le catalo- 
gue qui permet de s'assurer que l'on va 
bien transférer les programmes voulus, 
puis chacun des 40 blocs correspondant 
à une piste est copié sur la disquette. 
Les 3 programmes proposés fonction- 
nent correctement sur CPC 464 avec 
DD1, mais ne devraient pas poser de pro- 
blème particulier avec un 664 ou 6128 
avec magnétophone. 


WINGS... NOUVEAU / WINGS... NOUVEAU / WINGS... NOUVEAU / WINGS... NOUVEAU / WINGS... NOUVEAU 


AMX PAGEMAKER 
Logiciel d'édition électronique sur 
AMSTRAD CPC. 


Permet d'intégrer du texte et des dessins pour 
réaliser bulletins, notices, affiches etc. 
Fonctions complètes de mise en page : écriture en 
colonnes, justification, centrage... 
Nombreuses polices de caractères disponibles 
avec la possibilité de définir vos propres polices. 
Permet d'intégrer des fichiers chargés à partir 
d'autres programmes de traitement de texte ou de 
dessin et même des images digitalisées à partir 
d'une source vidéo ou scannées. 
Compatible avec l'interface de digitalisation 
ROMB0 pour obtenir un sytème complet 
d'édition : AMX MAGAZINE MAKER. 

e Manuel d'utilisation illustré en français. 

e Toutes ces possibilités, vous sont offertes à des 
prix très intéressants : 

— AMX PAGEMAKER 


— AMX MAGAZINE MAKER 


au 42 89 37 2 


LES AUTRES PRODUITS AMX POUR CPC : 


— La souris AMX MOUSE 690 rrc 
— AMX MOUSE MAT 

(Tapis en caoutchouc mousse) 80F rrc 
— AMX UTILITIES : utilitaire d'extension 
des capacités graphiques et 

de programmation de l'imprimante 

avec la souris AMX 


NOUVEAU 


— AMX 3 D ZICON : 

logiciel de dessin en 3 D sur CPC : 
rotation, zoom, 

dessin des faces cachées. 


299F rrc 


CARTE DISQUE DUR 20 Mo 
VORTEX ENTIÈREMENT COMPATIBLE 
AMSTRAD PC 1512 


e Volume et alimentation spécialement étudiés pour 
le PC 1512, permet une configuration avec 2 lecteurs. 
e La mise en place de la carte laisse libres un 
connecteur court et un connecteur long 
Spécifications techniques : 

— disque dur 3,5" 26 Mo non formatés, 21 Mo 
formatés 

— contrôleur WINCHESTER 

— alimentation : 14 W 

— temps d'accès moyen : 80 ms 

Fourni avec un programme d'installation de GEM 


PRIX:  N.C. 
Et toujours pour les CPC 6128/664/464 
LES LECTEURS VORTEX 5,25’ (ou 3,5’) 


— 708 Ko de mémoire supplémentaire. 

— 2 systèmes d’exploitation professionnels : 

e CP/M 2.2 et CP/M Plus (sur CPC 6128) 

e VDOS 2 sous Basic, le système d'exploitation 

conçu par VORTEX, offrant de nouvelles possibilités : 

— 128 entrées au directory, 

— Accès direct sous Basic, 16 fichiers peuvent être 

ouverts simultanément, 

= Moniteur Z 80 et éditeur de fichiers résidents en 

ROM. 

— Les lecteurs VORTEX existent en version 

1er lecteur pour CPC 464 (F1-S), en version double- 

lecteur (F1-D) ou avec une interface RS 232 intégrée. 

— Ils sont fournis avec un utilitaire multi formats 

CP/M. 

— Manuel détaillé en français. 
PRIXDE BASE: 2757 rc 


LES EXTENSIONS MÉMOIRES 
VORTEX 256 Ko et 512 Ko / CPC 464 et 664 


— Si vous voulez travailler avec des programmes 
professionnels tels que dbase, Wordstar ou 
Multiplan 

— Ecrire des programmes en BASIC jusqu’à 288 Ko 
(CPC 464) 

— Travailler avec une RAM virtuelle ultra rapide 
jusqu'à 448 Ko de capacité sous CP/M 2.2 


SP 256 10425 rrc 
SP 512 1388f rrc 


WINGS Microelectronics Distribution - DISTRIBUTION EXCLUSIVE EN FRANCE 


205, rue du Fg. Saint-Honoré - 75008 PARIS - Tél. : (1) 42.89.37.26 + 


TIM. DOS 


— MICRODRAFT 6128/PCW 
— MICRODRAFT PC 1512 et 


SECOND LECTEUR 5’’ 4 
POUR PCW AMSTRAD 8256 


e Se connecte facilement à l'emplacement du 2° 
lecteur 3” 


e 800 Ko de capacité disponible contre 180 Ko avec 

les disquettes 3” 

e Switchable 40/80 pistes 

e Fourni avec l'UTILITAIRE TIM. DOS permettant de 
convertir des fichiers de données MS.DOS et PC.DOS 
au format AMSTRAD puis de les manipuler ou les faire 


tourner avec les mêmes programmes version PCW 


LECTEUR 5” 4 avec logiciel 
2599 rrc 


LOGICIELS PROFESSIONNELS : 


MICRODRAFT de TIMATIC 
Pour CPC 6128/PCW/PC 1512 et Compatibles. 


e Logiciel de D.A.O. performant pour toutes 
applications en dessin industriel : mécanique, circuits 
électroniques, décoration. 

e Fonctionne avec toutes les tables traçantes 
compatibles H.P. et les imprimantes compatibles 
EPSON *. 

e La version PC permet de récupérer la bibliothèque 
de dessins d'AUTOCAD * et ne nécessite aucune 
carte Les pr spéciale. 

e Manuel détaillé en français 


9455 rrc 


compatibles 1995 rrc 


CARDBOX de CAXTON / CPC 6128 / PCW / 
PC 1512 et Compatibles 


Gestionnaire de fichier des plus vendus en Angleterre. 
Il peut gérer jusqu'à 65000 fiches et effectuer des tris 
sur n'importe quel terme du texte contenu dans une 
fiche. 


BRAINSTORM de CAXTON / CPC 6128 / 
PCW / PC 1512 et Compatibles 


Logiciel d'aide à la structuration des idées et de notes 

aux multiples possibilités de mise en forme et 

d'impression. Recherche des mots-clés et grande 

vitesse d'exécution. 

CARDBOX et BRAINSTORM sont compatibles avec 

les principaux traitements de texte : WORDSTAR - 

NEWWORD. Manuel en français. 

CARDBOX 6128/PCW/PC 794f rrc 
548ñ rrc 


BRAIWSTORM 6128/PCW/PC 


Tous nos prix sont des prix conseillés, frais de port en sus 
IBM, ATARI, AMSTRAD, HP et EPSON sont des marques déposées. 


19 ‘D-C: sauvegarde d'une disquette 
sur cassette 
24 MEMORY &IFFF:FOR az RAGGA T( LA 


GC: READ D&:FOHE a, VAL CURE 4DS): NEXT 
a 

39 DATA DD,7E,6@6,DD,56,62,1E,&6, DD, 
66,5, DD,6E,64,FS,0E 

49 DATA 47,CD,64F,R9,F1,D05,4F,CD, 66, 
Cé,C1,C03,18,E9,21,066 

J9 DATA 26,11,606,12,73E, 16,C7,9E, EC, 
21,681,61,CD,7S.BEB,21 

ét DATA 61,20,66,16,C05,66,56,CD,66, 
HR,77,3E,40,CD,SA,BE 

74 DATA 19,F4,C1,16G,EE,C9,21,600, 
4,216, 00, 21,606,20,11 

66 DATA 66,4%, 1A,BRE,26,08,7C,FE, ZE, 
C8,25,1:,168,F4,21,06 

96 DATA 66,36,FF,C09,21,97,600,2IE,77, 
CD,68,HC,C9 

196 MODE Z2:INE 6,13: BORDER 1%: INE 1 
,® 

119 FRINT" D-C : sauvegarde d'un 
e disquette sur cassette. '":FKRINT 
12 FKRINT" Attention, l'enregis 
trement obtenu sur 
ra etre utilise 
+ et devra etre 
quette avec C-D 
156 FRINT:FRINT "'Introduisez la disqg 
uette a sauvegarder (Frotegee en ec 
riture) et la cassette a ecrire, p 
uis pressez REC+FLAY' puis une tou 
che": CALL SERA 

14% DISC: CLS: CAT: fEPFEEE (&A89F) 

199 FOHE 82006, fs: CALL RAGE 


We ir 
alt q 


directemen 
retransfere sur dis 


pu 


16 1 TAFE: CALL &SÂAGé4+: SAVE lcatalogu 
e",b,%2066,12700 
179 FOR p=g TO ZOG:LOCATE 46,25: FHRIN 


T'ecriture piste No'sp:tet2666: FOR 

gef TO f+6: CALL RAGE, t,p, ss: tet+5s12 
INEXT s:CALL RAGIESNEXT pi FRINT CHF 
C7); 

189 CLS: FRINT "Transfert termine. Fo 
ur verification, rembobinez la cass 
ette et laissez le disque en p 
lace puis presser et une tou 
che." 

194 CALL SBHOG6: FORE BAGEZ7, RAI: LOAD" 
catalogue": DISC:CLS:FOR «x=1 TO 11 
992: FRINT CHRS$(FEEF (x+82660) ) 3: NEXT 

266 FOR p= TO Z9:LOCATE 46,25: FRIN 
T'verification piste No'";pit=t46060: 
FOR sf TO f+8:CALL &ADGGG, t,p,s:t=t 
+512: NEXT s:CALL BSAGIE:CALL SAGAT7ITI 
F PEEE (860066) =8FF THEN CLS:FRINT CH 
KR (7); "ERREUR IIS END 

21% NEXT p:CLS:FRINT"Tranfert 
ect !":END@ 


FLAY: 


corr 


cassette ne pour 


14 C-D : transfert de cassette a 

disquette (cassette enregistree par 
D—C) 

29 MEMORY &SIFFF: FOR az LAGOGEG T0 SA 


28: READ bD&:FOEHE a, VAL CMRU4+bDE) :NEXT 
a 

59 DATA DD,7E,66, DD,S6,62,1E,66, DD, 
66,95,DD,64E,064,FS5,0E 

49 DATA 67,CD,6F,KH9,F1,D5,4F,CD,4E, 
Cé,C1,05,18,R9,21,66 

99 DATA %6,11,66,12,7E,16,C3,A1,EC 

69 iTAFE: MODE Z2INE 6,17: BORDER 17%: 
INF 1,6 

74 FRINT®"  C-D : Transfert de copie 
5 de sauvegarde de disquettes. '":FARI 
NT 

84 FRINT'" Attention, ce pro 
gramme ne transfere sur disquette q 
Le les cassettes enregis 


trees avec D-C Is FRINT 
9 FRINT" Inserez la casset 
te a tranferer et pressez ‘FLAY‘ pu 


is une touche. ":CALL &SEHEM6 

196 FRINT:FRINT" Lecture du catalog 

ue": LOAD' catalogue": DISC: f=FEEr (& 

2660) 

114 CLS: FRINT'Contenu de la cassett 

Us FOR kel TO 1266: FRINT CHR#(FEEE ( 

H+REOE) ) 3 2 NEXT 

126 LOCATE 1,25 

156 IF f=841 THEN FRINT'inserez une 
disquette formatee systeme ";:GOTO 
166 
146 
disquette formatee data 


IF +f=8Ci THEN FRINT'inserez une 
“s:GO0TO 16 


(3 

159 PRINTchr$(7)3 "Format inconnu... 
3 END 

164 FRINT'et presse: une touche.'":C 
ALL SERGE 

176 LOCATE 1,Z2S:FRINT SFACES(79); 
184 FOR p=® TO Z9:LOCATE 46,25:PFRIN 


T'Lecture piste No'sp:t=82666: CALL 
MAGIE: FOR s=f TO f+8:CALL 8A666,€t,p 
55: t=t+SIiZ:NEXT Ss:NEXT p 

19% CLS: FRINT CHR (7) 3; "Transfert te 
rmine !":END@ 
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mBRETAGNE = 
ls PRESSE 


Prix public TTC 
REVUES C1 Jouez MO5 40,00 F 
C1 Jouez au Laser 45,00F 
C1 CPC 19,00F | C1] Jouez AQUARIUS 45,00 F 
CT AMSTAR 10,00F | C1 Jouez HECTOR -—_ 48,00F 
[1] THEORIC 25,00F | [1 Mystère d'ALICE ______ 151,00F 
[1] MEGAHERTZ 19,00F | C1 Plus loin Canon X07 — 85,00F 
C] PCompatibles 20,00F | C1 Pratique des imprimantes . ___________95,00F 
C1 Astrologie Pratique 15,00F 
C1 Vision 20,00 F MARINE 
LIVRES INFORMATIQUES C1 Manœuvre Catamaran Croisière 49,00 F 
C1 Traité Radio Maritime = 162,00F 
CT Jouez avec AMSTRAD 48,00F 
C1 Mieux programmer AMSTRAD _________  85,00F TECHNIQUE =——————— 
C1 Communiquez AMSTRAD  —____ 90,00F 
7] Programme Utilitaire AMSTRAD SS0ÈF L'ElTechnique BU - = 2. “CSOUE 
©] Univers PCW — 119,00F | [1 Concevoir Emetteur 69,00F 
C3 Apprenez l'Electronique AMSTRAD  -_  95,00F | [] Interférence radio 85,00 F 
[7] Compilation CPC 1-2-3-4 _____________ 70,00F | C1] Propagation des Ondes T1  165,00F 
C1] K7 Communiquez AMSTRAD 190,00F | CT Propagation des Ondes T2 253,00F 
CT Disque Communiquez AMSTRAD ____ 250,00F | [1 QSO Radio 25,00F 
[T1 Radio Amateur et la Carte QSL _______  30,00F 
[1 Naviguez ORIC 45,00F | [1 Réception Satellite Météo 145,00F 
C] Interface ORIC - 59,00F | [1 Synthétiseur de Fréquence ___________  125,00F 
C1 ORIC à Nu 151,00F | [1 Télévision du Monde 110,00 F 
C1 Apprenez Electronique ORIC  -__  110,00F | ©] Transat TERRE-LUNE 20,00 F 
C1 Communiquez ORIC 145,00F | [] Al'Ecoute des Radiotélétypes —— 115,00F 
©] Mieux programmer ORIC — 110,00F | [1] Cours de Morse (4K7 + livres) — 195,00F 
C1 K7 Communiquez ORIC 190,00 F 
DIVERS 
C1] Communiquez ZX81 90,00 F 
C1] Extension ZX81 48,00F | E]LaBaule-Dakar 54,00 F 
CT K7 Communiquez ZX81 -— 190,00F | [] Expédition Pôle Nord 95,00 F 
DS CUS CONS DR DNS CURE CONS CR CRU CURE RUN OURS GUUS OURS CUUS GUN OURS GUN CON GUN OUR GUN OUR CURE CURE CUUN CN DURS COUR GUUS GURN GUN CURE DURS DURS CRUE DS DU K 
NOM : Ed énom Fa Total commande : F 
Adresse : Port 10  : F 
Total de mon règlement : 2 ____F 
Code postal : Date : 
Ville : Signature : 


Cijoint un chèque libellé à l'ordre de : BRETAGNE EDIT PRESSE. Retoumez le(s) bulletin(s) ou une photocopie à : 
cPe BRETAGNE EDIT PRESSE - La Haie de Pan- 35170 BRUZ. 


_ UTILITAIRE 


LES MEMES PROGRAMMES 
POUR TOUS LES CPC 


Ce vœu pieux n'est plus un rêve. Les 
pauvres possesseurs de CPC 464, 
ou même de 664, ne peuvent pas 
disposer de tous les programmes 
BASIC écrits pour le 6128. Avec cet 
article, nous nous proposons de 
réparer cette injustice en vous don- 
nant : 

— Une méthode de conversion du 
BASIC 6128 en BASIC 464 pour 
toutes (ou presque) les instructions 
qu'il ne possède pas. 

— Un utilitaire de simulation de 
BANKMANAGER pour CPC 464 et 
664 entièrement écrit en 
assembleur. 

— Un exemple détaillé d'utilisation 
de BANKMANAGER qui illustre ses 
possibilités, également bien utiles 
aux possesseurs de CPC 6128, dont 
la documentation sur ce sujet est 
assez difficile. 


QUEL EST LE PROBLEME ? 


La non compatibilité entre les 3 CPC 
d'AMSTRAD se pose de 3 façons : 
— Le BASIC 464 a été revu lors de 
la sortie du 664 et quelques nouvel- 
les instructions sont apparues. Par 
contre, le 6128 a hérité du même 
BASIC que le 664. 

— Avec le 6128, des extensions 
BASIC par RSX sont fournies pour 
gérer les 64kK supplémentaires 
BANKMANAGER. 

— Le BASIC permet d'utiliser des 
routines et de manipuler des zones 
système de la RAM qui n'ont pas 
forcément les mêmes adresses sur 
les 3 machines. 


Le premier point peut être résolu en 
grande partie en transformant le 
source BASIC pour chaque instruc- 
tion inconnue du 464. Seules quel- 
ques-unes d'entre elles, heureuse- 
ment assez peu employées, ne sont 
pas convertibles. Dans ce cas, le 
programme restera toujours destiné 
au 6128. Nous aurons au moins 
donné une liste exhaustive des ins- 
tructions à ne pas employer, lorsque 


Daniel LE BARBIER 


l'on écrit un programme et que l'on 
veut s'adresser à tous les lecteurs de 
CPC. 
L'utilisation du BANKMANAGER sur 
6128 peut s'effectuer de 2 maniè- 
res : sauvegarde et restitution d'ima- 
ges d'écran (instructions SCREENS- 
WAP et SCREENCOPY) ou gestion 
de la mémoire supplémentaire en 
fichiers virtuels. Le stockage de la 
restitution d'écran n'est pas simula- 
ble sur 464 et 664, du moins pour 
obtenir des performances accepta- 
bles. Nous abandonnons donc ce 
cas, sachant qu'il est très peu fré- 
quent. Par contre, l’utilisation en 
fichier virtuel est totalement repro- 
duite dans l'utilitaire que nous vous 
proposons et entièrement compati- 
ble avec les instructions du 6128. 
Mis à part le souci de transformation 
de programme qui motive cet article, 
il faut noter que la technique des 
fichiers virtuels est utilisable dans 
tous les programmes de votre con- 
ception. Elle apporte une très grande 
efficacité dans la gestion des tables 
de grande dimension (surtout recher- 
che et écriture d’un élément de 
table), par rapport aux tableaux 
BASIC définis par DIM. 
Dans le cadre d'une transformation 
de programme, il faut noter ici que 
le 464 et 664 n'autorisent pas le 
passage d’une chaîne de caractères 
comme paramètre d'une com- 
mande, mais seulement son adresse 
(obtenue par @). Ainsi, les instruc- 
tions RSX du type IDRIVE peuvent 
s'écrire IDRIVE,‘‘a'’sur 6128, mais 
doivent s’écrire@a$ =‘'a'':IDRIVE, 
a$ sur les autres modèles. La 
même remarque est valable sur les 
instructions de BANKMANAGER : le 
programme de démonstration pré- 
cise le type d'écriture qu'il faut adop- 
ter. Il peut être nécessaire d’accom- 
plir cette transformation mineure sur 
les sources 6128, si l’auteur n'en a 
pas tenu compte. 
L'utilisation en BASIC par CALL, de 
routines systèmes dont l'adresse 
d'activation se trouve dans la RAM, 


est en principe assez limitée, puisque 
le BASIC ne perrnet pas de charger 
les registres du Z80, en standard. 
Les seules routines utilisables sont 
situées à des adresses communes 
aux 3 CPC : le JUMPBLOCK. Hormis 
le ‘'détournement"’ de ces vecteurs 
par un programmeur vicieux, la com- 
patibilité de ces CALL est en principe 
assurée entre les 3 modèles. Par 
contre, la RAM contient différentes 
zones de données utilisées par le 
système et il est possible d'y accé- 
der par PEEK et POKE depuis le pro- 
gramme BASIC. Dans ce cas, 
aucune compatibilité n'est garantie 
et il est même peu probable que les 
zones recherchées se situent aux 
mêmes adresses sur les 3 CPC. Il 
faudra alors se reporter aux bibles 
bien connues pour effectuer les 
transformations d'adresses néces- 
saires. 


BASIC 


Voici donc la liste des instructions du 
BASIC 6128 à transformer pour pas- 
ser sur un 464 ou à ne pas utiliser 
si vous voulez, lorsque vous tenez à 
être compatible. 

— CLEAR INPUT 

Scn rôle : elle efface toutes les don- 
nées entrées à partir du clavier en 
attente dans le tampon correspon- 
dant. 

Adaptation 464 : CALL&BBO3 

— COPY CHR$ (# numéro de 
canal). 

Son rôle : elle donne le caractère 
situé sous le curseur dans la fenêtre 
dont le numéro est précisé. 
Adaptation 464 : il n'existe pas 
d'adaptation simple et il est indis- 
pensable de passer par un sous- 
programme en langage machine qui 
produit le même effet. 

LD HL,&A408 ; adresse de la 
mémoire caractère 

CALL &BB6O ; lit le caractère situé 
sous le curseur de la fenêtre O et le 
place dans A 

LD (HL),A ; range le caractère à 
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l'adresse &A408 

RET ; retour au BASIC 

Plutôt que de charger cette routine 
à une adresse fixe en mémoire par 
POKE, nous allons la ranger dans 
une variable caractère et l'appeler à 
travers le descripteur de la variable. 
Il suffit d'insérer dans le programme 
la ligne suivante : 

COPY$ = CHR$(&21)+CHR$(8) + 
CHR$(&a4) + CHR$(&cd) + CHR$( 
&60) +CHR$(&bb)+CHR$(&77) 
+ CHR$(&c9) 

Alors l'instruction : 

a$ =COPYCHRS(n) est remplacée 
par : 

WINDOWSWAP O, n pour amener la 
fenêtre n en O 


CALL PEEK (S)COPYS$ +1)+256* 
PEEK( COPY$ + 2) 


a$ = CHRS$(PEEK (&A408)) 
WINDOWSWAP O, n pour rétablir la 
fenêtre n. 

— CURSOR O 

Son rôle : effacement du curseur sur 
l'écran. 

Adaptation 464 : CALL &BB8D 

— CURSOR 1 

Son rôle : rétablissement du curseur 
sur l'écran. 

Adaptation 464 : CALL &BB8A 

— DECS$ (expression «numérique, 
modèle de format) 

Son rôle : transforme la valeur de 
l'expression numérique en une 
chaîne de caractères définie par le 
modèle de format. 

Adaptation 464 : en fait, il faut con- 
tourner le bug de la ROM BASIC en 
ouvrant 2 parenthèses et en n'en 
fermant qu'une seule. 

Exemple : 

10 a=14.1 

20 a$=DECS$((a,''# #.##'') 

30 PRINT a$ 

14.10 

—  DERR 

Son rôle : donne le dernier code 
erreur envoyé par le gestionnaire de 
disquette AMSDOS. 

Adaptation 464 : malheureusement, 
la gestion des erreurs sur le 464 est 
relativement simpliste et il n'existe 
pas de moyen simple de simuler 
cette instruction. || est quelquefois 
possible de remplacer DERR par ERR 
qui donne le numéro de la dernière 
erreur détectée, mais pas forcément 
par le gestionnaire de disquette. 

— FILL<encre > 

Son rôle : remplit une zone de l'écran 
graphique. 

Adaptation 464 : dans ce cas éga- 
lement, pas de solution miracle pour 
simuler cette instruction. 


94 


— FRAME 

Son rôle : permet d'obtenir un affi- 
chage graphique de meilleure qualité 
car il est synchronisé sur les trames 
vidéo. 

Adaptation 464 : CALL &BD19 

—  GRAPHICS PAPER et GRAPHICS 
PEN 

Son rôle : détermine l'encre de fond 
ou des lignes dans un graphique. 
Adaptation 464 : il n'existe pas 
d'adaptation simple. Pourtant, dans 
bien des programmes, il est souvent 
possible de modifier les instructions 
graphiques qui suivent GRAPHICS 
PEN et GRAPHICS PAPER, en utili- 
sant les options de couleur d'encre 
dans les instructions PLOT et 
DRAW. Cétte tâche peut devenir 
ardue. 

— MASK 

Son rôle : permet de tracer une ligne 
graphique en pointillés. 

Adaptation 464 : aucune n'est facile 
à réaliser. 

— MIDS 

Seulement un cas d'utilisation du 
MIDS$ est prévu pour le 464 : celui 
de l'extraction d'une sous-chaîne, à 
partir d'une position précisée et sur 
une certaine longueur. Par contre, 
sur les 6128 et 664, une deuxième 
syntaxe est possible et elle permet 
l'opération inverse : insertion d'une 
sous-chaîne à partir d'une certaine 
position avec l'écrasement des 
caractères qui s'y trouvaient. 


MID$ (<chaîne>, <position > 
[, <longueur >])= <nouvelle 
chaîne > 
Exemple : 


a$ ='"ABC"" c$=""X" 

MID$ (a$,2,1)=c$ 
a$ vaut alors ‘’AXC’. 
Adaptation 464 : il est possible de 
réécrire la même opération en BASIC 
sous la forme : 

a$=lefts (a$,1)+c$+mid$ (a$,3) 
— ON BREAK CONT 
Son rôle : annule totalement l’action 
du ESC, ce qui interdit l'arrêt d’un 
programme en exécution. 
Adaptation 464 : il est possible d'ob- 
tenir le même résultat en utilisant 
l'instruction ON BREAK GOSUB. 
Exemple : 
6128 10 ON BREAK CONT 

464 10 ON BREAK GOSUB 50000 


50000 RETURN 


BANKMANAGER 


Avec le 6128, sont apparus 64k de 
RAM supplémentaires qui avaient de 
quoi allécher tous les acheteurs 
potentiels. La déception a été de 


taille lorsqu'ils ont découvert que ces 
64Kk n'étaient pas disponibles pour le 
BASIC ou l'assembleur, mais seule- 
ment utilisables par l'intermédiaire 
d'un logiciel livré (et protégé) nommé 
BANKMAN. La documentation, 
assez difficile sur ce sujet, a fini de 
les convaincre que ce n'était pas 
vraiment une affaire. 

Nous avons la prétention aujourd'hui 
de réhabiliter en partie BANKMAN, 
en vous expliquant correctement ses 
possibilités sur un exemple et vous 
verrez qu'il est possible de mettre à 
profit efficacement ces 64k. Pour les 
possesseurs de 464 ou 664, il leur 
suffit de saisir le programme 
BANK 46 et ils disposent eux aussi 
d'un BANKMAN, mais dans la pre- 
mière RAM de 64k, au détriment de 
la place réservée ‘au BASIC, mais 
l'opération en vaut la peine. 
Regardons maintenant les possibili- 
tés : 

— Stockage et restitution d'images 
d'écran (un maximum de 4) par les 
instructions SCREENSWAP et 
SCREENCOPY. Cette possibilité 
peut être profitable pour les pro- 
grammes graphiques qui nécessitent 
un changement rapide de plusieurs 
images d'écran. Cette fonctionnalité 
est tout de même la moins intéres- 
sante et n’est pas reproduite dans 
BANK 464, pour des raisons de per- 
formances (cela nécessiterait le 
stockage des écrans sur disquette). 
— Structuration de la mémoire en 
fichiers virtuels. 

Dans ce mode d'utilisation, la 
mémoire gérée par BANKMAN ou 
BANKMAN 464 est organisée 
comme un fichier (ou presque), mais 
comme il n’a pas d'existence réelle 
sur la disquette ou la cassette, il est 
qualifié de virtuel. En fait, il est plus 
réaliste de considérer que la mémoire 
est une table (tableau à une dimen- 
sion), dont chacun des éléments a 
une longueur fixe et peut contenir 
une chaîne de caractères (et unique- 
ment des caractères). Il existe une 
notion de pointeur courant sur la 
table qui représente un indice d'élé- 
ment utilisé et manipulé par les ins- 
tructions de gestion de la table : 
nous allons y revenir. Il existe aussi 
une notion de pointeur maximum 
valeur fixe qui représente l'indice du 
dernier élément de la table avant de 
dépasser les 64k (ou la taille 
mémoire réservée pour BANK 464). 
Le nombre d'éléments dans la table 
dépend de leur longueur, puisque la 
taille totale qu'ils peuvent occuper 
est fixe : 64k pour BANKMAN et une 


valeur que vous choisirez pour 
BANK 464. 

Pour utiliser cette table, nous dispo- 
sons de 4 instructions : 


° IBANKOPEN, nn 


Définit la longueur n en caractères de 
chaque élément de la table. Elle doit 
être comprise entre O et 255 carac- 
tères, mais les valeurs 0 et 1 ne sont 
pas conseillées. Cette instruction 
repositionne également le pointeur 
courant sur le premier élément de la 
table qui a pour indice ©. Indirecte- 
ment, elle définit la valeur du poin- 
teur maximal=partie entière (taille 
de la mémoire/n)-1. À noter que 
cette instruction ne modifie pas le 
contenu de la mémoire et, ainsi, les 
programmeurs astucieux peuvent 
réutiliser les données chargées avec 
une longueur différente, idée à creu- 
ser.'Enfin, il faut savoir que n, au lieu 
d'être une valeur, peut être le nom 
d'une variable de type entier, et uni- 
quement entier. 


° IBANKREAD, @ r, @ a$,i 


Lecture d’un élément de la table. La 
lecture consiste à placer dans une 
Variable de type caractère, a$ dans 
notre exemple, l'élément de la table 
d'indice i. Plusieurs remarques sont 
indispensables : la variable a$ doit 
exister avant cette utilisation ; si sa 
longueur ne correspond pas à la lon- 
gueur d'un élément de la table, alors 
soit l'élément de la table n'y est pas 
entièrement placé si elle est plus 
courte, soit les derniers caractères 
de droite ne sont pas modifiés, si elle 
est plus longue. En aucun cas, la lon- 
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gueur ne sera modifiée. L'indice i 
peut être omis avec la virgule qui le 
précède et, dans ce cas, l'élément 
indiqué par le pointeur courant est lu. 
Dans tous les cas, après la lecture, 
le pointeur courant indique l'élément 
suivant, celui qui est lu dans la table. 
Enfin, un cas d'erreur est possible : 
l'indice i ou le pointeur courant lui- 
même est supérieur au pointeur 
maximum. À cet effet, l'adresse 
d'une variable entière est passée en 
premier paramètre, r dans l'exemple, 
et elle reçoit -1 comme valeur. Dans 
le cas où la lecture s'effectue norma- 
lement, cette variable reçoit la valeur 
de l'indice de l'élément lu. 


° IBANKWRITE, @r,@ a$,i 


Ecriture d'un élément dans la table. 
La chaîne de caractères contenue 
dans la variable a$ est écrite dans 
l'élément de la table d'indice i. Le 
fonctionnement est totalement simi- 
laire à BANKREAD. Nous noterons à 
nouveau que les longueurs de a$ et 
d'un élément de la table peuvent être 
différentes et que la même règle pré- 
vaut. Une chaîne a$ trop longue 
n'écrase pas l'élément suivant dans 
la table et une chaîne trop courte 
laisse inchangés les derniers carac- 
tères de l'élément. 

Il faut remarquer la grande efficacité 
de cette méthode pour valoriser un 
élément d'une table par rapport à 
l'interpréteur BASIC sur un tableau 
DIM. En effet, celui-ci déplace auto- 
matiquement la chaîne de caractères 
dans un emplacement libre de la 
mémoire qu'il détermine par un algo- 
rithme de garbage, toujours coûteux. 
Dans notre cas, une recopie directe 
à un emplacement déterminé et 
invariant optimise très largement le 
temps. 


° IBANKFIND, @r, © ai, 


Recherche d'une chaîne dans la 
table. Cette instruction permet de 
rechercher dans la table, entre les 
indices i et j inclus, la chaîne de 
caractères contenue dans a$. Tous 
les éléments sont examinés l'un 
après l’autre jusqu'à, éventuelle- 
ment, trouver l’un deux égal à la 
chaîne recherchée. Là aussi,:la lon- 
gueur de la chaîne recherchée et 
d'un élément de la table peuvent être 
différentes. La comparaison porte 
alors sur la plus petite des 2 et les 
caractères supplémentaires sont 
ignorés. De plus, la chaîne recher- 
chée peut contenir des caractères 
jokers =CHR$(O) pour lesquels la 


comparaison n'est pas effectuée 
avec les caractères de même rang 
dans les éléments de la table. Cela 
permet d'ignorer certaines zones 
dans la recherche et est mis à profit 
dans notre exemple. 

Lorsque l'opération de recherche 
aboutit, l'indice de l'élément de la 
table ainsi trouvé est placé dans la 
variable entière r et dans le pointeur 
courant. Dans le cas contraire, la 
variable r reçoit la valeur -3. 2 types 
d'erreurs sont possibles dans l'utili- 
sation de BANKFIND : l'indice de 
début i est supérieur à l'indice de fin 
j ou l'indice de début i est supérieur 
au pointeur maximum. Dans les 2 
cas, la variable entière r reçoit la 
valeur -1. Enfin, il est possible de ne 
pas préciser j, où j et i (mais i tout 
seul ne peut pas être omis) : l'indice 
de début est alors le pointeur cou- 
rant et l'indice de fin le pointeur 
maximum. Et, comme toujours, i et 
j peuvent être des variables entières 
ou des expressions à résultat entier. 


Remarques 


Dans la documentation AMSTRAD 
sur le CPC 6128, la valeur -2 est 
donnée comme possible, mais ne 
devant jamais arriver comme résul- 
tat dans r !!! pour les 3 instructions 
BANKREAD, BANKWRITE, BANK- 
FIND. Pour les 2 premières, il sem- 
ble, en effet, qu'elle ne se produise 
jamais. Par contre, pour BANKFIND, 
c'est elle qui est méthodiquement 
renvoyée à la place des valeurs -1 et 
-38, ce qui est probablement un 
‘’bug'”’. Il faut sûrement s’en accom- 
moder et peut-être seulement tester 
la valeur négative de r, ce qui est 
bien souvent suffisant. Sachez par 
contre que BANK 464, lui, respecte 
très fidèlement toutes les règles 
énoncées précédemment. 

Il faut insister sur les performances 
remarquables de cette technique de 
recherche en table qui ne met pour- 
tant pas en œuvre des algorithmes 
complexes (dichotomie ou autres) 
puisqu'elle est séquentielle. 

Le parcours des 64k ne prend pas 
plus de 1 à 2 secondes, ce qui est 
tout à fait extraordinaire. L'interpré- 
teur BASIC serait tout à fait ridicule 
si on tentait de lui faire faire la même 
chose. On ne peut qu'encourager les 
programmeurs à penser à cet outil. 


LE PROGRAMME BANK 464 


Que vous possédiez un CPC 6128 
ou pas, pour utiliser BANKMANA- 
GER, il vous faut d'abord le charger. 
Dans le cas du 6128, faire 
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RUN''BANKMAN avec la face 1 de 
la disquette système 1 ou, plus pru- 
dent, avec une copie. La mémoire 
utilisable par le BASIC, bornée par 
HIMEM, a légèrement diminué et 
vous pouvez tout de suite passer au 
programme de démonstration : votre 
micro connaît BANKMANAGER. 

Si vous possédez un CPC 464 ou 
664, il vous faut saisir le court pro- 
gramme BASIC BANK 464 que nous 
éditons, le sauvegarder avec vos 
précieux utilitaires et faire RUN. Il 
vous demande alors la taille mémoire 
en caractères que vous lui accordez 
pour implanter vos futurs fichiers vir- 
tuels. Elle doit être supérieure à O et 
inférieure à 32000, sinon il ne vous 
resterait plus rien pour le BASIC. 
Tapez par exemple 5000, vous 
aurez le droit de définir un nombre 
d'articles tel que ce nombre multiplié 
par la taille d’un article soit inférieur 
ou égal à 5000. Il faut savoir que 
cette taille s'ajoute à la taille du 
module binaire qui va être chargé 
{environ 600 caractères). La totalité 
sera retirée de la place utilisable par 
le BASIC, le module chargeur le fera 
lui-même. Donc, ne réservez pas 
plus que vous n'avez besoin ou pas 
beaucoup plus, car les ‘MEMORY 
FULL’' vont pleuvoir dans les pro- 
grammes BASIC. 

Puis, le module chargeur place par 
POKE tout le binaire qui représente 
la gestion de BANKMANAGER à par- 
tir de l'adresse 41700 et jusqu'à 
l'adresse 42192. L'instruction CALL 
a pour but de définir dans le système 
les extensions RSX : IBANKOPEN, 
IBANKREAD, IBANKWRITE, IBANK:- 
FIND. 

Puis, la taille de la zone mémoire que 
vous lui avez donnée est directe- 
ment introduite dans le binaire. 
Enfin, la réservation réelle de la zone 
gérée par BANKMANAGER est faite 
par simple calcul de HIMEM 
=41700-taille demandée. Elle se 
situe donc ‘‘en dessous’’ du modèle 
binaire et les articles d'indices crois- 
sants seront aussi chargés à des 
adresses décroissantes. Remarquez 
que la zone n'est pas réinitialisée et 
peut contenir n'importe quoi. La 
nouvelle valeur de HIMEM est affi- 
chée (eh oui, elle a bien diminué) et 
votre micro connaît maintenant les 
instructions de BANKMANAGER. 


LE PROGRAMME 
DE DEMONSTRATION DE 
BANKMANAGER 


Le petit programme de démonstra- 
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tion que nous vous proposons est 
sans prétention, il est même mal 
écrit de temps en temps. Son seul 
but est de vous montrer une partie 
de ce qui peut être fait avec BANK- 
MANAGER. Le sujet choisi est la 
gestion très simplifiée d'un mini car- 
net d'adresses, avec successive- 
ment les opérations de création, 
liste, recherche par nom et par ville. 
L'abondance de commentaires faci- 
lite sa compréhension. 

Lignes 40-50 : peu de choses sinon 
un titre et un démarrage pas trop 
rapide pour vous donner le temps de 
la réflexion. 

Ligne 70 : ouverture d’un fichier vir- 
tuel dont la longueur d'articles est de 
68 caractères. Initialisation du poin- 
teur courant à O. Au lieu de cela, si 
vous obtenez ‘‘unknown command 
in 70”, alors vous n'avez pas initia- 
lisé BANKMANAGER avant d'exécu- 
ter ce programme et il serait bien 
utile d'aller lire le paragraphe BANK 
464. 

Lignes 140-150 : précautions indis- 
pensables avec BANKMAN, les 
variables doivent être définies avant 
leur utilisation et avec le bon type ({r 
est un entier). 


CHARGEMENT DE LA TABLE 


Pour ne pas vous imposer de taper 
un fichier de données {!), nous avons 
choisi de charger la table à partir de 
lignes BASIC DATA lignes 830 à 
900). Vous y trouverez des noms de 
familles françaises bien connues 
avec pour chacune d'elles : le nom, 
le prénom du chef, la ville de rési- 
dence et le numéro de téléphone. 
Chaque ligne DATA est lue par 
READ dans les variables noms, 
prénoms, ville$ et tel$ (lignes 220 
à 250). Chaque variable est complé- 
tée par le nombre de blancs néces- 
saires pour qu'elle atteigne la lon- 
gueur de 20 caractères, sauf le télé- 
phone qui fait toujours 8. Pourquoi ? 
Parce qu'il faut que chaque zone soit 
bien cadrée dans l’article : nom, 
caractères 1 à 20 ; prénom, carac- 
tères 21 à 40 ; ville, caractères 41 
à 60 ; téléphone, caractères 61 à 
68. 

Ligne 280 : l’article art$ est consti- 
tué par la concaténation des 4 chaï- 
nes et il fait donc bien 68 caractè- 
res de longueur. Il n'était pas néces- 
saire de le forcer à 68 blancs en ligne 
150 : d'accord, mais c'est pour que 
vous n'oubliiez jamais cette 
contrainte. 

Ligne 290 : affichage de l'article 


ainsi constitué. Le petit sous- 
programme des lignes 960 et sui- 
vantes ne vous apprendra rien, sinon 
que le CALL &BBO6 permet d'atten- 
dre la frappe d'un caractère quelcon- 
que au clavier et est compatible avec 
tous les CPC. 

Ligne 300 : écriture dans la table de 
l'article à l'indice i qui varie de O à 
7 car il y a 8 lignes DATA. Rappeæ 
lons que le premier article possède 
l'indice O. 

Ligne 310 : test du code retour, à ne 
jamais oublier. Si une erreur est inter- 
venue (valeur -1), la seule raison est 
que vous avez réservé trop petit 
(moins de 8 fois 68 caractères 
= 544). Il faut donc tout recommen- 
cer depuis le début. Dans le cas con- 
traire, tous les articles sont écrits 
dans la table après la ligne 320. 


AFFICHAGE DE 
LA TOTALITE DES DONNEES 


Tous les articles chargés vont être 
affichés un à un avec le numéro d'in- 
dice qu'ils portent dans la table. 
Ligne 370 : réouverture du fichier 
virtuel, en fait uniquement pour 
ramener le pointeur courant à la 
valeur O, car elle était à 8 après 
l'écriture de l'article 7. 

Ligne 390 : le code retour r va nous 
servir à arrêter la boucle WHILE. 
Pour cela, il faut tester r< 7 (et non 
pas 8) parce que la lecture lui donne 
la valeur de l'indice lu. Donc, au pre- 
mier tour, il rentre à O {ligne 380) et 
il ressort à O car le pointeur courant 
vaut O. Au deuxième tour, il rentre 
encore à O mais sort à 1 car le poin- 
teur courant a subi + 1 au tour pré- 
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cédent et on a donc lu l’article 1. Et 
ainsi de suite jusqu'au dernier tour 
oùil rentre à 6 et sort à 7etonafini. 
Ligne 400 : lecture de l’article d'in- 
dice donné par le pointeur courant. 
Cette valeur est placée dans r par la 
même occasion et l’article dans art$ 
qui fait bien 68 caractères de lon- 
gueur (attention aux troncatures à 
droite). Le pointeur courant avance 
aussi de 1 au cours de cette opéra- 
tion. À noter que sur la 6128, le © 
devant art$ n'est pas obligatoire, 
mais recommandé par souci de 
compatibilité. 

Ligne 410 : test du code retour 
comme toujours, mais, dans notre 
cas, on ne doit pas sortir là. 
Lignes 440-460 : affichage de l'in- 
dice lu et de l'article, sans 
commentaires. 


RECHERCHE PAR NOM 


Le programme permet ensuite d’af- 
ficher les articles qui possèdent un 
nom donné par l'utilisateur (ligne 
530). Il est possible de ne donner 
que le début d'un nom puisque la 
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26 


chargement des 


PS 
BANEREAD BANEUWRITE BANEFIND 


comparaison de la variable clé$ avec 
les articles par BANKFIND s'effectue 
sur la longueur réelle de clé$. 
Ligne 550 : remise à O du pointeur 
courant. 

Ligne 560 : recherche à partir du 
pointeur courant et ce jusqu'à attein- 
dre le pointeur maximum d'un arti- 
cle débutant par la chaîne de carac- 
tères clé$. Dans le cas où aucun arti- 
cle n'est trouvé après la recherche, 
r vaut -2 sur le 6128 (voir la remar- 
que du paragraphe précédent), -3 si 
toute la table a été parcourue sans 
succès ou -1 dans le cas où le poin- 
teur courant était déjà en fin de table 
avant la recherche. 

Ligne 640 : un article a été trouvé. 
Son indice est placé dans r et dans 
le pointeur courant. Faire +1 sur le 
nombre d'articles trouvés. 

Ligne 660 : lire l’article d'indice r. On 
aurait pu ne pas préciser r puisque 
le pointeur courant contient la même 
valeur. 

Ligne 670-680 
l'article. 

Ligne 690 : continuer la recherche. 
Elle peut reprendre à partir du poin- 


affichage de 


BANEOFEN 


ETS) pour les CFC 464 et les CFC 

&éä4 seulement | NT 

4.6 | 224 END 
DJ MEMORY 82666: MODE 1:LOCATE 1,2:F) 236 
RINT "DEFINITION DES EXTENSIONS !BA| 766 
NEOFEN" | 246 


69 FRINT:FRINT SFC(E&) 35  BANEREAD" 
74 FRINT:FRINT SFC(26) 3" RANWRITE" 
84 FRINT:FRINT SPC (26): "3: BANF IND" 
99 LOCATE 1,13:FRINT'TAILLE DE LA & 


ANE EN CARACTERES " 


196 DEFINT b-z:ad=417%6@:b=û: i=0 


‘adresse de chargement 
119 a$S=INFEYS:1IF a$="" 


Saisie de la taille de bank 
THEN 16% 
IF ASC(a#):48 DK ASC(a$):57 THE TZ 
3106 DATA 167,195,85,165%,195,179,16% 
,.66,65,76,75,/79,80,69,266,66, 4256 
219 DATA 65,78,75,87,82,75,684,167,6 
6,685, 78,75, 82,69,65,196,5675 

226 DATA 66,65,78,75,74,75,78,196,8& 


126 IF a$=CHR#& (15) 
126 
N 119 


14% LOCATE 25+1,13:PRINT a%:i=i+i 
b=16xb+VAL(a#) : GÜTO 1164 

THEN GOTO 56 
petit controle de coherence 


1564 
164 IF bz6 OK brE20664 
174 GOSUE ZE&@:CALL ad 
et activation des rsx 
189 am=ad-b: MEMORY am 
nouvel himem 


196 FOFE ad+él,b AND 255 


de 
259 


MOD 


REAL 


26% NEXT 
RINT 
ND 

41796 | 276 

THEN 116 284 RETURN 


1} o 


taille de bank 
206 FOFE ad+é2,FIX(b/256) 
219 LOCATE 5,18:FRINT'VOTRE NOUVELL 
E HIMEM EST "3: HIMEM:FRINT:FRINTSFRI 


crtl=äinles8gé: RESTORE 


nlænl+iés: FOR 
la ligne nl 
VIFOEE ai,vicrtl=e(crtl+vi 
9999: airaiti 

JIREAD vsIF vércrtl 
"ERREUR DE DATA 


IF ai<4219% 


re 
at 


29% DATA 1, 
9,188,251,1627,195,46,16%,195,96,2%1 


teur courant qui a avancé de 1 à la 
lecture en 660. 


RECHERCHE PAR VILLE 


Ligne 780 : clé$ est dans ce cas 
constitué de 40 caractères NULL 
CHRS (0) suivis du nom de la ville 
recherchée. La comparaison ne s'ef- 
fectuera donc pas sur les 40 pre- 
miers caractères des articles, mais 
uniquement à partir du 41e, position 
de début de la rubrique ville. 

La procédure de recherche est alors 
identique à la recherche par nom. Le 
programme s'arrête en ligne 710 car 
la variable choix vaut 2. 


CONCLUSION 


Ce programme, bien sûr, ne montre 
pas tous les cas d'emplois possibles 
de BANKMANAGER. Il permet seu- 
lement d'illustrer la notice d'utilisa- 
tion en donnant quelques cas inté- 
ressants. À vous d'imaginer des 
applications qui s’en servent et vous 
ne serez pas déçu par ses perfor- 
mances et ses possibilités. 


dans le binaire 


2963: airz4l 
ii T0] 16 ‘lecture 


THEN EF 
EN LIGNE";nl:E 
THEN GOTO 346 


7,162,33,29,16%,195,76 


chargement 19,4,9,0,208,7,6,6591 


calcul du 


246 
4,6 


DATA 
fixer la 


334 DATA 6, 


»,6,16,254,1,192,175,186 
,192,56,25, 163,50, 76, 167, 8098 
123,50,39,163,42,3%,16%,1, 
»,9,151,237,82,3,124,254,956% 


97 


256 DATA 6,22,247,123,189,56,747,46 
ne il 687, 67,37, 16%,201,233,1244 
266 DATA 162,163,54,6,24,5,22,162,1 
6%,54,235,254,2,216,40,26,2827 
276 DATA 254,3,192,221,116,4,221,16 
2,5,229,221,110,2,221,102,3,4837 
3686 DATA 229,205, 164, 164,237,83,25, 
163,24,15,221,110,2,221,192,3,6815 
296 DATA 229,213,237,91,25,163,205, 
164,164,225,126,25,94,35,86,33,8956 
466 DATA 29,16%,199,56,1,176,79,151 
,71,197,205,188, 164, 192,0,237, 1911 
419 DATA 176,225, 237, 91,35,163,115, 
25,114,19,237,83%,25,163,261,42,2982 
426 DATA 25,163,34,167,164,254,2,21 
6,49,89,254,4,218,1,164,192,4974 
459 DATA 221,116, b,221, 192,7,229,22 
1,119,4,221, 102 .5,229,235,221,7218 
448 DATA 94,2,221,86,3,705,164,164, 
174,186,56,6,22,12,125,187,8885 
45% DATA 48,8,62,255,225,225,119,75 
.119,701,58,26,163,188,56,8,694 
4aëa DATA 22,51,58,27,16%,189,48,45, 
42,27,16%,74,40,221,116,4,1958 
1e DATA 221,162,5,229,221,116,2,22 
,192,5,229,205,164,164,47,:7,401S 


19 

e® | programme de demonstration 
pour bien utiliser BANEMANAGER 
ES 
4% MODE 1:DEFINT a-z:LOCATE $,1:FRI 
NT'DEMONSTRATION DE BANEMANAGER" 

5 FOR i=i TO 5646 : NEXT 

Gt 

74 !RANÉOFEN,68 ‘ ouverture de 
bank : articles de 68 caracteres 


STE) 
9% ‘ initialisation des variables 
199 ‘ les instructions bank ne 


créent pas de variables 

119 ‘de plus,elles ne modifient pas 
leurs longueurs 

129 ‘ il faut donc les initialiser 
une bonne fois pour toutes 

136 

14% r=G ‘ entier code 
retour d'une fonction bank 

15% art$=SFACES(49) ‘ article lu 

ou ecrit dans hanr. 

166 

176 ‘ chargemenz de la table 

184 

199 FRINT:FRINT:FARINT'CHARGEMENT DE 

S DONNEES EN TABLE" 

594 FOR i=6 TO 7 

219 ‘ chaque variable est comple- 


98 


484 DATA 163,24,18,221,110,2,221,16 
2,2,229,215,257,91,35,163,205,60S52 
49% DATA 164,164,42,357,16%z,34,159,i 
64,225,126,235,78,25, 70,237, 67,7852 
504 DATA 157,164,2:5,59,163,196,S6, 1 

,126,56,161,164,257,83,25,163,9674 
510 DATA 205, 188, 164,58,161,164,79, 
34,25,162,252, 22,29, 163, 65, 221, 1706 
529 DATA 42,157,164,221,126,6,254,0 
,49,3,1906,72,14,221,39,35,3274 
539 DATA 16,241,2257, 83,25, 162,275, 1 
15,235,114,261,58,166,164,1686,32,S529 
e] 

546 DATA 6,58,159,164,187,40,17,19, 
42,25,163,125,255,156,0,111,66828 
550 DATA 48,1,:7,:4,75,163,24,198,2 
37,853,25,16:,225,54,293,25,8455 

566 DATA 54,255,42,162,164,34,7:5,16 
13,201,9,6,0,06,0,6,06,9567 

1576 DATA 58,28, 16%, 186,46,4,2768,24, 
6,291,58,77,16%,187,248,462,1207 

389 DATA 299,228 ,228,228,119,55,119 


.261,227,75,25,163,3,53,228,162,2:54 
à 


596 DATA 151,58,29,165,2237,66,61,2S 
4,9,2006,34,2489,6,0,0, 3,5%48@ 


tee par le nombre de blancs neces- 
saires 

22% READ nom#g:nom#=nom$+SFACES (26-L 
| EN (nom#)) 

236 READ prenom$:prenom$=prenom$+sF 
ACES (26-LEN (prenom#)) 

249 READ villet:villet=ville$+SFACE 
$(26-LEN(ville)) 

| 259 READ tel$ 

[26% ‘ l'article est constitue par 

| la concatenation de toutes les vari 
ables 

27% ‘ il fera donc bien 68 caracte- 
tres de longueur 

| F84 art$=nomé+prenom#+villei+tel# 
296 FRINT:FRINT'ARTICLE"3;i:GOSUE 94 
& ‘ affichage de l'article 

206 !BANEUWRITE,G@r,G@art#$,i ‘ecriture 
dans bank a l'indice i 

216 IF r£6 THEN FRINT "erreur dans 
le chargement'":FRINT "plus de place 
dans la table":END ‘ la bank re- 
servee (sur 464 et 664) est trop pe 
tite 

E26 NEXT 1 

ZE 

248 ‘edition de la totalite des don 
nees 


356 ‘ » 


264 CLS:FRINT SFC (5); "EDITION DE TD 


LES ARTICLES" 
i BANFOFEN, 68 ‘remise du pointeur 


LS 
376 


courant a zero 
F8 ro pour debuter le WHILE 
296 WMILE r<27 au dernier tour , 


il vaut 6 et sort du while a 7 
4696 3: BANEREAD, Gr,Gart$ ‘lire l'arti 
cle du pointeur courant 
419 IF r£6 THEN FRINT'erreur en lec 


ture":END'ca ne devrait pas arriver 


426 en sortie , r est egal au 
pointeur courant 

456 on a fait +1 sur le pointeur 
courant 

44% FRINT:FRINT "EDITION DE L'ARTIC 
LE “sr 


45% GOSUR 167% "decomposition de art 
46% GOSUER 946 affichage des rubri 


ques 
47% WEND 

486 

496 recherche par nom 
EE 


dl choix=l pour arreter le pro-- 
gramme plus loin 


Dee CLS: FRINT SPC (16): "RECHERCHE FA 


F NOM" 
24 LOCATE 5,5: INFUT "nom recherche 
Micles demande du nom recherche 


946% 1% "compteur d'articles trouves 
96 : FANEOFEN, 68 ‘mettre le pointeur 


Courant a zero 
266 1 EANEFIND, Gr,@cles# recherche 
a partir du poiteur courant jusqu'a 
la fin 
374 IF THEN GOTO 746 
6126 seulement 


pee le 


pour 


66 traiter d'abord les cas pas 

trouve Pæ-l ou +5 

396 on est a al fin de bank ra-7% 
, et on n'a pas trouve 

696 IF re-5 THEN GOTO 766 

814 © le pointeur courant a depasse 
le pointeur maximum rz-1 

&Ee ‘ le dernier trouve etait donc 


le pointeur maximum lui-meme 

&36 IF Fre-1 THEN GOTO 766 

GAG irit+i ‘faire +1 sur le compteur 
65e lire l'article Fr trouve et 
faire +1 sur le pointeur courant 
8664 BANEREAD, Gr, éart#,r 

674 GOSUR 1976 decomposition de 
l'article 


684 GOSUEB 946 affichage de l'arti 
cle 

696 GÜTO 564 "continuer la recherche 
sur la suite de bank 


- UTILITAIRE 


796 PRINT:FRINT "LA RECHERCHE & TKO 
UVE";1scle$:CALL 8&EB66 

719 IF choix=i THEN choix = © ELSE 
END arret du programme vous avez 
tout vu 

726 

726 recherche par ville 

746 

1756 CLS:PFRINT SFC(16): "RECHERCHE FA 
R VILLE" 

764 LOCATE 5,5:INFUT "ville recherc 

hee":cle demande de la ville 
recherchee 

776 mettre 44 jokers ( caracteres 
& ) pour ignorer le nom et le pre 

nom 


784 cle$=STRINGS (46, CHARS (G))+cles 
796 GOTD 546 programme identique 


a la recherche par nom 


86 


816 donnees 
826 

854 DATA dupont, jean,paris, 45667788 
84% DATA durand,paul,marseille,:445 


valeurs des charqgees 


7687 

854 DATA dubois,andre,rennes, 96 

54 

864 DATA dupont,eugene, angers, =i7é68 

294 

874 DATA duval,albert,nice, 12988745 

88% DATA dupont,andre,rennes, 99546 

2 

894 DATA dupond, jiean,nice,1l2%4sc7e 

1968 DATA duclos,emile,paris, 457 

1 

1916 

926 SOuS-programme d'edition € um 
article 

[936 

946 FRINT:FRINT SFC (5): "NOM ï 
“snomé 

956 FRINT SPC (5) 3 "FRENOM si “spre 

nommé 

196 FRINT SFC(S) 3 "VILLE Se asso 

let 

974 FRINT SFC(S) 3 "TELEFHONE + "“stel 

Æ 

990 CALL £&EBHA6 


99% RETURN 
IRSISIOS 
116 
tion 
14H26 
1926 
1446 
1956 
1466 
1476 


SOouUSs-programme de decomposi 
dé art 
nomB=LEFTS (art$,E:4) 
prenomé=eMIDS(artg, 21,56: 
Ville$=MIDS (arts, 41,2%) 
LelE=RIGHTS (Carté, 6) 
RE TLUIRN@ 
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-. COFYRIGHT 


. DANS. 


=. 


sn 


Jank 


tab 


A 
4 


zone 
taille 
ptr 
ptmax 
lgart 


AU CSS cas su ss 


open 


op 1 


op= 


100 


ORG 


1985 MICRO-AFFLICATION. 


41700 


definition des rsx 


JF: 

DEFM 
DEFE 
DEFM 


DEFE. 


DEFM 
DEFE 
DEFM 
DEFE 
DEFE 


DEFS 


DEFW. 


DEFW 
DEFW 
DEFH 


traitement du. bankopen 


bc,tab 
hl,zone 
#bcdi 
Lib 
open 
write 
read 
find 
EANEOFE 
EN'T+HB0 
BANEUWRIT 
MEU+#HB0 
ÉANEREA 
"D'"'+#80 
BANEFIN 
MD''+#480 
©) 


4 
2000 
O 

O 

10 


ne 
(ptr}),a 
(ptr+1),a 
a,e 
(lgart),.a 
h1,(taille) 
bc,o 
a 
hl.,de 


bc 


a,h 

O 

nz.,opli 

a,e 

1 

c.opli 

z ,Opi 

bc 

(pitmax) ,bc 


su se 


#8 2 su #1 se 


su 


table des branchements 
zone de travail systeme 
ruotine extension rsx 


zone systeme 


taille bank en octets pokee de basic 


pointeur article courant 
valeur maximum du pointeur 
lonqueur article 


au moins un parametre 

sinon retour sans rien faire 
cero dans a 

valeur dans de * #55 

retour si d 2% 0 

metre a zero le pointeur courant 


mettre la longueur dans lqgart 


calcul de ptmax 
= partie entiere de taille / lgart 


taille - laart 


max = compteur —i 


an as sn se 


D 
pi 
[ss 


write 


as “su se 


move 


‘25 ss ss 


m'as -s2 ‘as 


oper 


traitement de.bankread et bankuwrite 


LD h1 ,oper 
LD (h1) ,#00 
JR ‘move 

LD h1l ,oper 
LD (h1) ,#eb 


adreese du code a patcher 
mettre-une nop 


mettre ex d 


traitements communs a read et write 


CF 2 
RET cc 
JR ze .pre 
CF 3. 
RET nz 


cas de © parametres 


LD 1,(1x+4) 
LD h,(Cix+5) 
FUSH h1 


LD 1,(ix+2) 


LD h,Cix+7) 
FUSH h1 

CALL cpptr 

LD (ptr) ,de 
JR li 


cas de ? parametres 


LD l1,(ix+2) 
LD h, Cix+2) 
FUSH h1 

FUSH de 

LD de, (ptr) 
CALL cpptr 


traitement 


FOF- h1 
LD a,(hl) 
INC h1l 
LD e,(hl) 
INC hl 


LD d,(h1) 
LD hl,lgart 


CF (h1) 
JR c,l= 
LD a,(h1) 
LD c,a 
SUR a 

LD b,a 
FUSH bc 
CALL adart 
FOF bc 
DEFER © 
LDIK 

“FOF _hl 


LD de, (ptr) 
LD (hi) .,e 


INC h1 
LD (h1) ,d 
INC de 


LD (ptr) de 


PCT 


au se sn su 8 su -su ‘48 se au ss ss 


+88 ‘85 ‘su 88 ss 88 ss 


au moins ? 
retour si 
il y en a 2 
est-ce bien 
non 


e,h1 


parametres 


+ 2 
ù 


adresse de ret dans h1l 


sauvegarde sur la pile 


adresse descripteur chaine dans hl 


sauvegarde sur la pile 
test du pointeur dans de 


sauver le p 


ointeur 


adresse de ret dans hl1 


Sauvegarde sur la pile 
sauvegarde adresse descripteur de cha 


utiliser le pointeur courant 


test du poi 


reprendre adresse’ descripteur 


nteur 


lire octet de longueur 
adresse chaine dans de 


octet longueur est-il bon 
comparaison avec la longueur definie 


elle est pl 
prendre lqa 


us petite 
rt 


prendre la longueur fournie 


supprimer 1 


e carry 


sauvegarde de la longueur 


adresse art 
recuperer 1 
nop pour re 


transfert article vers variable 


icle bank 
a longueur 


dans h1 


ad où ex de,hl pour write 


reprendre adresse de ret 


+1 sur ptr et ptr courant dans ret 


101 


NE rose 


ind 


sa sn as 


fi 


F6 


#7 


F5 


D 241 1 


D ar ss ee 
+ 
+) 


102 


traitement de bankfimd 


Cas 


LD 
FUSH 


FUSH 
CALL 


Cas 


FUSH 
FUSH 


CALL. 


h1, (ptr) 
{sptr),hl 


de 4 parametres 


l,(ix+6) 
h,(Cix+7) 
h1 
1,(ix+4) 
h,(ix+5) 
h1 

de,h1 
e,(ix+2) 
d,(Cix+2z) 
cpptr 
a,h 

d 

ct 

nz fé 
al 


aff 
h1 

h1 
(h1),a 
h1 

(h1) ,a 


a, (ptmax+1) 
h 

Csf7 

ne fe 

a, (ptmax) 

1 

nc fe 

h1, (ptmax) 
F2 


de Z% parametres 


1, Cix+4) 
h,Cix+S) 
h1 

1, Cix+2) 
h,(ix+5) 


cpptr 
h1, (ptmax) 
fe 


de ? parametres 


l, (ix+2) 
h,(ix+z) 
h1 

de 

de, (ptr) 
cpptr 


an sn sn 


an EE sx # ss 


sn #8 


su se 


PT su 


EL 


su #8 se 


Sauvegarde du pointe 


test du nombre de pa 
au mons 2 parametres 
Cas 2 parametres 


Cas À? parametres 
c'est forcement 4 


adressse de ret dans 


adresse descripteur 


sauvegarde de indice 
indice 1 dans de 
est-il valide ? 
test de h1l par rappo 


octet fort donc er 
octets forts c'es 


voir octet faible 
octet faible = donc 
traitement en cas d'° 
adresse de ret dans 
—-1 dans ret 


au basic 
comparaison de hl a 


forcer ptmax ce n'es 


adresse de ret dans 


adresse descripreur 


ra 


indice 1 valide 


adresse ret dans hl 


adresse descripteur 
prendre le pointeur 
est-il valide 


ur courant 


rametres 


h1 


dans hl 


me 


2 dans hl 


rt a de 
reur 


t ok 


of 
erreur 
h1 


ptmax 


€ pas Une erreur 


h1 


dans hl 


sur la pile 
courant 


LD h1, (ptmax) 


traitement 


hs ss se 
3 


LD (z2) ,h1 dernier indice à comparer 


FOF  h1l ; adresse descripteur dans h1l 
LD a, (h1) ;: -octet de longueur dans a 

INC  h1 

LD c,(h1) : adresse de la chaine dans bc 
INC h1 


LD b,(h1) 
LD (1) ,bc 
LD hl,lqgart 


sauvegarde dans zone de travail 
comparer octet longueur 


CF (h1) 

JR c,f9 octet de lonqueur inferieur 

LD a. (h1) forcer la lonqueur definie 
9 LD (1g),a sauvegarde de la longueur 


L.D (ptr) de 
CALL adart 

LD a,{(1q) 
LD C,a 

LD (ptr),hl 
LD iy,lgart 


calcul de premiere adresse dans bank 
adresse de debut dans h1l 
reprendre la longueur 


ss sn ‘an su ses 


sauvegarde de l'adresse courante 
pour un sub plus bas 


comparaison avec la chaine recherchee 


14 LD b,c 
LD ix, (z1) 


pour le djnz 
adreese chaine dans 1x 


2. #8 


10 LD a, (ix+0) octet de la chaine 
CF (a) 
JR z,f8 ; caracteres joker 
CF (h1) 
JR nz,fili ; avancer dans bank 
f8 INC 1x ; avancer dans la chaine 
INC h1 : avancer dans bank 
DJINZ +10 


elle est trouvee 


‘#8 su a 


LD (ptr) ,de remplir pointeur courant 


FOF  h1l : adreese ret dans h1l: 

LD (h1l),e ; y mettre la valeur du pointeur 
INC  hl1 

LD (h1) ,d 

RET 5 au programme basic 


avancer dans la bank 


eu 


h ss ss #1 


11 LD a 
CF d 
JR nez ,f1® 
L.D a, (z2) 


. (z2+1) ; est-on arrive au dernier indice 


octets forts differents 
octets forts eqgaux 


CF e 
JR AE D LES ; on a atteint le dernier indice 
1% INC d ; faire +1 sur indice courant 
L.D h1l, (ptr) ;: reprendre adresse courante 
LD a,l ; retirer ligart a h1l 
SUR  (iy+0) 
LD l,a 
JR nc,+f1s 
DEC h | 
+15 L.D (ptr),hl1 : Sauvegarde nouvelle adresse courante 
JR f14 
: chaine pas trouvee 
fi15 LD (ptr) de 
FOF  h1l : adresse ret dans h1l 


LD 

INC 

LD 
L.D 
LD 
RET 


{h1) ,#fd 
hi 

1) .Hf+$ 
h1l, (sptr) 
(ptr).,hl 


reservations et 


ss “ss ss se 


DEFW 
DEFW © 
DEFE © 
DEFW 0. 


el 


5p 
la 
en cas d'erreur 
LD 
CF 
JR 
RET 
JF 
RET 
LD 
CF 
RET 
L.D 
F'OF 
FOF 
FOF 
LD 
INC 
L.D 
RET 


a, (ptmax+1) 
d 

r,cpl 

ne 

Cp 


a, (pEmax) 
e 

mic 

au#ft 

h1 

hi 

h1 

hi ,a 
“hi 

(h1) ,a 


cpl 


Cpe 


sp de calcul de 


Es CES ss 28 


L.D 
INC 
LD 
SUR 
LD 
SEC 
DEC a 
CF Q 
RET x 
JA 
END 


adart 
be 
h1l,bank 
A 

a, (lqart) 


ad’? h1,b6bc 


Text:11485 

Hmem: 28461 

bank 41700 
taiile 41761 
open 41768 
arite 41818 
15 4188? 
+5 41956 
Lt 4200% 
+14 42066 
12 42107 
ze ARIAT 
42158 


tab 
ptr 
api 
move 
oper 
Fé 
pfe 
#10 
+15 
1q 


cpi CpE 


Text:11485 
Hmem: 268461 


104 


de comparaison 
valeur a comparer est dans de 
—1 est mis dans 


la valeur de l'adresse 


l'adresse de 
de !1 


End: 17854 


41709 
41765 


41966 

2007 
42071 
42119 
42145 
416: 


End:17884 


du pointeur 


SOUS T-PrFOQrAaMMeSr 


1 


Lib 


fi 


ES css 88 


avec 


SU 3u 2 sn #0 sn 


" 
" 


‘a 
art 


i 


28 se St ex sn sx 


ë 


ë 


mettre -3% dans ret 


restauration du pinteur 


b£ 


all 


de La chaine recherches 
dernier indice 
Longue 
dit pointer 


pointeur 


MERE 


ret et un retour 


octet +Hort dame 


code er trEeLitr 


faible dans a 


octet 


ü) 
corde 
de 

LA 
dans MI 


à le 


positionner 


octeat 


SIC ELLE 


55 


Fe tour 


dE 


adress 
adresse de 


3e 


et 
— 1 


dans Fret 


au programme basic 
rticle courant dans barnlk 


cle (ptr)i est rendue dans h1 
Cour ant 


acire 


valeur pointeur 

car on part de 1! 
base d'adre je 
supprimer le 
LOnQUEUr  arÉiT 
retirer La 


dans 


evenmtuel] 


Carr 
dans 
cit 


Le 


LI 


a 


PE fi Leiir 


266 


EUNE 


nd 


599 


Bytes 


34 re de Turin CLUB PHENIX CHERCHE 
“ontrol: 75008 PARIS 
% Tél. (1) 42 93 47 32 l 
SA Métros : Rome, Liège, DES EQUIPIERS ERES 
St-Lazare, Place Clichy. : 


Une nouvelle façon de Naviguer : 

Vous rêvez d'une transat en course croisière où vous voulez 
seulement louer entre amis, en toute sécurité un bateau sûr 
et confortable. Quel que soit votre niveau, le Club Phénix 
s'adapte à vos besoins. 

Pas de programme rigide. Aucune expérience n'est 
nécessaire, vous aborderez les difficultés selon le rythme 
de la croisière. Avec où sans skipper, choississez 

de naviguer selon vos goûts en croisière côtière 

ou hauturière. 


Un calendrier à vos mesures : 
Programmez dès aujourd'hui vos 
vacances. Dates, type de bateau, 
formation équipier ou chef de bord 
sur des unités de 10 à 17 m récentes 

et équipées 1'® catégorie, basées 
en Bretagne sud.. SEE 


TH 172 = ÿ TH 175" 
Cofret de rangement Coffret de rangement 
40 disquettes 10 disquettes 


m 21F 


POUR AMSTRAD* 


EN PROFITANT DE NOS PROMOTIONS 


e1TH175 10 DISQUETTES 3 279 F soit la disquette à 23 F 
e1TH172 20 DISQUETTES 3 570 F soit la disquette à 22 F 
e1TH176 30 DISQUETTES 3” 825 F soit la disquette à 21 F 
e DISQUETTES 3” seules (par 100) 24,50 F PIÈCE 
e DISQUETTES 3" seules (par 10) 27,00 F PIÈCE 
FORFAIT DE PORT 40 F (jusqu'à 5 Kg, au-delà nous consulter). PRIX TTC 


DEMANDE DE DOCUMENTATION GRATUITE 
‘|Pécoupez et envoyez à PHENIX. 
Port de Trentemoult. 44400 REZE 


“marque déposée, photo non contractuelle 


: 83,33 % soit 1490 F TTC 


PRIX 1118,00 F HT+ 


É CARACTERISTIQUES TECHNIQUES 

4 16 chaînes PAL/SECAM à recherche automatique 
5 Prise Péritel pour CANAL + 

£ Equipée spécial moniteur AMSTRAD 

. avec câble Péritel sur tout moniteur RGBI couleur. 
= | REVENDEURS, CONTACTEZ-NOUS ! 


BON DE COMMANDE 
Je désire recevoir interface TV © 1490 F TTC 


N'ayant pas de moniteur Amstrad, envoyer un câble d'adaptation Péritel [] 190,00 F TTC. 
Article : quantité : prix total : 


| Participation aux frais de port : ajouter 50 F - prix total : I 
DEIA Ci-joint mon règlement par chèque : 
E Je règle contre remboursement à la livraison (frais en sus) | 


62, cours de l'Yser Nom : Prénom 
33800 BORDEAUX 


Tél.: 56.92.91.78 Adresse : 


Ville : Code postal : 


out-en-un’’, telle est la devise des logiciels dit ‘’intégrés’’. 

Ces programmes tournent en général sur des machines 

rofessionnelles et sont d’un prix prohibitif. PP et 
e 


atabase Software a eu la bonne idée 


sortir 


sur CPC une version simplifiée mais largement suffisante pour l’uti- 
lisateur moyen, des mastodontes logiciels déjà cités. 


Rec Size: 


a£Te 


HAE 


Use the Cursor Neys to Move and Enter to Select (ESC to Exit) 
EE ——_—_——————— — 


Au menu de Mini-office Il on trouve six 
options principales. Nous allons les exa- 
miner successivement : 

— le traitement de textes 
Commençons par une grande lacune du 
programme : pas de caractères accen- 
tués. Cela limite évidemment les appli- 
cations. On trouve par ailleurs les fonc- 
tions habituelles : éditeur pleine-page, 
insertion de lignes, jusitifications, recher- 
che d'un mot ou d’une chaîne de carac- 
. tères, centrage, opérations sur des blocs 
de textes. Toutes ces commandes sont 
accessibles par la touche CTRL + une 
lettre. Une page d'aide peut-être appe- 
lée pour rafraîchir une mémoire défail- 
lante. Il existe également quelques fonc- 
tions plus particulières : entre autres la 
possibilité d'insérer le contenu de 
fichiers-disque dans votre texte grâce à 
une commande unique. 

en ce qui concerne l'impression du texte, 
il y a une profusion de commandes per- 
mettant le formatage et la numérotation 
des pages. Vous pouvez aussi installer 
un spooler c'est-à-dire une zone ‘‘tam- 
pon’’ en mémoire permettant d'utiliser le 
programme pendant l'impression. 

Je ne vous parlerais pas des comman- 
des de chargement et de sauvegarde, 
elles sont inévitablement présentes, et 
offrent une option ‘’merge’’ (permet de 
fusionner 2 textes). 


L'ensemble est clair et bien présenté, 
avec une horloge en temps réel et la 
capacité mémoire affichées en perma- 
nence. 


A noter l'option ‘’mouse'’’ qui permet 
l'utilisation de la souris AMX. Ce dernier 
point est valable pour tous les program- 
mes de Mini-office II. 

— Gestionnaire de fichier 

L'option ‘création de structures’ permet 
d'entrer les dénominations des différents 
champs. Le nombre de ces derniers est 
limité à 20, et vous devrez préciser le 
type (alphanumérique, décimal, entier, 
date) la longueur de chaque champ. 
Une fois le masque créé, il vous faut 
entrer les données elles-mêmes. Cette 
opération est facilitée grâce aux diverses 
options. d'insertion et de correction. 
Votre fichier est maintenant complet et 


sauvé. Vous pouvez alors faire des 
recherches, trier et marquer vos 
données. 

Les recherches peuvent s'effectuer à 
l'aide de jokers : ? et * : ces symboles 
remplacent n'importe quel caractère 
dans une chaîne. 

On peut trier dans l’ordre croissant ou 
décroissant un ou plusieurs champs. 
Le menu d'impression propose des sor- 
ties en colonnes ou en lignes, avec ou 
sans champs. Les fichiers sauvés avec 
ce programme sont réutilisables avec le 
traitement de texte. 

— Le tableur 

Sur une feuille de calcul, on dispose de 
lignes et de colonnes. Mini-office Il offre 
225 ‘‘cellules’’ ou cases. Chacune d’en- 
tre elles pouvant contenir soit des carac- 
tères alphabétiques, soit des chiffres 
décimaux ou entiers. L'intérêt de ce 
genre de programme est d’être entière- 
ment redéfinissable (dans les limites de 
la mémoire tout de même). On peut ainsi 
effectuer des opérations entre des colon- 
nes ou des lignes en vue d'obtenir des 
totaux et autres moyennes (par exem- 
ple). Si vous modifiez une valeur du 
tableau vous observerez automatique- 
ment la modification des résultats. 
Une nouvelle fois, le mode de déplace- 
ment, les flèches du curseur, et les com- 
mandes à une seule lettre facilitent la vie 
de l'utilisateur. Bien sûr, l'impression par- 
tielle ou totale du tableau fait partie des 
options. 
L'option : ” 


sauvegarde des données gra- 


traite les données du tableur 


phiques”'’ 
pour permettre, comme nous allons le 


voir, le fonctionnement du module 
suivant. 

— Traitement graphique 

Selon l’adage : ‘’un dessin vaut mieux 
que mille mots (ou chiffres)'’, ce pro- 
gramme va donner une dimension 
visuelle à vos tableaux numériques (uni- 
quement). La procédure est la suivante : 
charger les données à la main ou à par- 
tir d'un fichier sur disque, ensuite à vous 
de choisir la représentation en barres, 
enlignes ou en ‘‘camembert'’. Vous pou- 
vez aussi comparer entre elles les don- 
nées de trois fichiers différents. Le but 
final de ces opérations est d'obtenir le 
graphique couché sur papier. Le pro- 
gramme permet la recopie d'écran sur 
DMP1 ou sur compatible EPSON (DMP 
2000 incluse). 

— Impression d'étiquettes 

Si vous possédez une imprimante, vous 
avez surement essayé d'imprimer des 
adresses sur étiquettes auto-collantes. Il 
se pose très vite des problèmes de for- 
mat. Pour éviter cette perte de temps le 
menu du module ‘’Label Printing’' est 
paramétrable : nombre d'étiquettes en 
largeur, dimension de la feuille, largeur 
de l'étiquette, tabulations. 

Les données à imprimer auront bien sûr 
été chargées à partir d’un fichier sur dis- 
que. Si vous avez à réutiliser le format 
que vous venez de définir, il est préféra- 
ble de sauver vos travaux sur un support 
magnétique. 


— Communications 

Ce dernier module nécessite la présence 
d'une interface RS 232 C ou à la riguer 
d'un minitel. Ainsi armé, vous pourrez 
échanger des programmes (BASIC ou 
binaires) et des fichiers ASCII entre deux 
ordinateurs. Là aussi le paramétrage est 
de rigueur : vitesse de transmission, taille 
du buffer. Le menu présente des ‘‘pro- 
tocoles'’ tout prêts, malheureusement 
ceux-ci sont aux normes du réseau 
anglais Microlink. 

Cet ensemble de programmes constitue 
un ‘tout ‘’ puisque les fichiers sont com- 


patibles entre les différents modules. 
Mini-office est donc à la fois puissant et 
simple d'utilisation. 

En revanche, la notice en anglais et le 
manque cruel d'accents sont à verser au 
passif de Mini-office Il. 


SAS 


REVENDEUR QUALIFIÉ 


Propose une gamme complète et diversifiée 


d'ordinateurs AMSTRAD 


étudiée pour s'adapter à vos besoins... 


FAMILIAL 


CPC 464 
CPC 6128 


Elysées 26 

26, Champs-Elysées 
75008 PARIS 

45 62 18 56 

*Ouvert le dimanche 


ROSES 


228, rue du Fg Saint-Antoine 75012 Paris - Tél. 
Mnite!. (1) 4356 75 87 (mot de passe ACSI) 


DISTRIBUTEUR 
AGRÉÉ 


TRAITEMENT 
DE TEXTE 


PCW 8256 
PCW 8512 


PROFESSIONNEL 


PC 1512 : SD-DD 
HD 10 millions 
HD 20 millions 


et assure la maintenance 


la formation 


la distribution et le développement des logiciels 


la vente des fournitures. 


228, rue du fg St-Antoine 

75012 PARIS 

43 71 12 12 

*Ouvert du lundi au vendredi 


Mint-informatique DPS 6 
Micro-informatique MICRAL 


(1) 43.711212 


64, rue de la Chaussée d’Antin 
75009 PARIS 

48 74 06 78 

*Ouvert du lundi au samedi 


Ordinateurs personnels PC 
Réseaux 


# 


@appke 255 
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PROTÉGER VOTRE AMSTRAD 


TOUS LES SACS ET HOUSSES SONT ADAPTÉS A CHAQUE TYPE DE MATÉRIEL ET LES PASSAGES DE CABLES SONT PRÉVUS. 


- 


Cochez 
bien 

les cases 
1 et 
couleurs 


Housse pour Amstrad (claier) 


D Sac pour Amstrad (clavier) CPC 46406640 6128QPCW 825601 

CPC 46401664061280PCW 8256. Coloris: beige, blanc, bordeaux, noir, 

Coloris: bleu, gris ou sable. marron. ; "5 5 

PIRE SYaiririatisén te 290 F TTC PERS eus res edtin as 130 F TTC a ee. + "ù pe FTTC 
Sac pour moniteur Amstrad mono- Housse pour moniteur Amstrad. nd pour 6 disquettes .... 116 F TTC 

chrome [1 couleur. [1 Coloris: beige, blanc, bordeaux, noir, pour 10 disquettes .. 150 FTTC 

Coloris: bleu, gris ou sable. marron. pour 32 disquettes .. 200 F TIC 

PME don ane rene 400 F TTC PRIXE irsdi essieu 130 F TTC Coloris: gris, bleu ou sable. 


Les sacs pour claviers AMSTRAD 464 - 664 - 6128 comprennent 1 poche pour le clavier plus 1 autre du même volume pour ÿ ranger les accessoires. 


POUR COMMANDER: Retournez-nous cette publicité en cochant le ou les pro- 
duits que vous désirez recevoir et en remplissant le bon ci-dessous. Pour les coloris, 
rayez les mentions inutiles. 


© Port PTT à ajouter au montant de votre commande: 25F 
@ Joindre votre règlement par chèque ou mandat à votre commande. 


Te D RS D ets ANR SC ee Prénom .................. 
a 


27, Bd de la Fraternité 44100 NANTES 


Signature: 


3 REVUES POUR LES PASSIONNES 


CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous recevrez 
chez vous votre revue. Vous bénéficierez de réduction sur certains produits et vous recevrez gra- 
tuitement six numéros hors série (un tous les deux mois). 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, des arti- 
cles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 

PCompatible MAGAZINE : sortie prévue du numéro 1 mensuel le 13 février 1987. 


Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux livres ! 


CPC AMSTRAD 11 numéros 180F A renvoyer à 
6 numéros 104F 
, : SORACOM 
Abonnement essai 8 numéros 55F : 
: Service Abonnement 
[] AMSTAR 11 numéros 100F BP 11 — 35170 BRUZ 
PCompatible Magazine 11 numéros 200F 


NOM Prénom 
Adresse 

Code postal Ville 

Date Signature 


Merci d'écrire en majuscules 
Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photo- 
copie. 


108 


L’AM5D' NOUVEAU EST ARRIVÉ! 


LE LECTEUR 5”1/4 
poux AMSTRAD 


1 M OCTETS pour PRiy 
1699 F TTC sucre * A 


J’ LE NOUVEAU JASMIN 
AM5D° 


le 2° lecteur double tête, quadruple densité, 
indispensable pour votre AMSTRAD CPC 464 - 664 - 6128 


NOUVEAU JASMIN AM5D*, le lecteur 
double tête, Puissant mais Econome 


Plus besoin de retourner la disquette. La sélection de face se fait par inverseur avec indicateur lumineux. 


Lecteur 5” 1/4 JASMIN AM 5 D* - 1 M: double tête, quadruple densité, 
720 K formatés, entièrement compatible AMSDOS et CP/M/2.2, CP/M*, 
livré avec disquette utilitaire de duplication, formatage et utilisation en 


GO PISIOS rss scene senssssmeesbsetiinenreateteinenans ones ee sesitresgres 1.699 F TTC 
Câble de liaison pour CPC 6128/664................................ 155F TTC 
Adaptateur AD 12 - VDC : pour l'utilisation avec des 

moniteurs sans sortie 12 V............................................... - Ê TTC 


Disquettes 5°’ 1/4, l'unité... F TTC 
Câble imprimante parallèle CENTRONICS pour AMSTRAD _ F TTC 


— CONCEPTION NOUVELLE 
— BOITIER METALLIQUE 

— SELECTEUR EN FACE AVANT 
— FIABILITE ACCRUE 


Les prix en boutique comprennent le port. 


re CPC 464 - CPC 664 - CPC 6128 - AMSDOS sont des marques déposées d'AMSTRAD, JASMIN AM 5 D+ est une marque déposée de T.R.A.N. sarl. CP/M est une marqué déposée de Digital Research. 
M Octets non formatés. 720 K formatés Tous nos prix sont en fonction de nos stocks au 1° janvier 1987 


BON DE COMMANDE à Sarl - Crédit possible. Nous téléphoner NOUVEAU PAYEZ PAR CARTE BLEUE / INTERBANCAIRE 
ZI Les Fourches - Les Espaluns - Avenue Lavoisier 
Date d'expiration LAN Jen Signature 


83160 LA VALETTE- DU-VAR - Tél. 94.21.19.68 


Veuillez m'envoyer d'URGENCE 


Forfait de Port express en France pour achat de plus de 500 F TTC : 100,00 F TTC - Forfait de Port en France pour achat de moins 500 F : 40,00 F TTC 
Supplément Contre-Remboursement : 120,00 F TTC 


RENE MR" 


Pour nous aider à vous proposer des articles et des listings tou- 
jours plus intéressants, nous vous invitons à les noter en fonction 
de l'intérêt que vous leur accordez. 

CPC sera ainsi encore plus proche de ses lecteurs | 

Pour vous encourager à participer à ce sondage mensuel, nous 
tirerons au sort 3 bulletins qui recevront un cadeau surprise. 


L'exploitation des tableaux 
DIM 


Monnaie 

CAO sur CPC 
OXYDA 

Demo Tri 

Tout sur Sound 
Branchez le turbo 
Stradamuse 


Initiation à CP/M 


Au cœur du PCW 


RSX Système 


Cass-disk 


Les mêmes programmes 
pour tous les CPC 


Nos rubriques permanentes 
Trucs et astuces 
Actualité 
Essais matériel 
Essais logiciels 


Vitrine du libraire 


Je possède un [] CPC 464 (drive) [] 664 [1 6128 
O PCW 8256 CO 8512 O] PC 1512 
Adresse : ............................... A retourner à : Editions SORACOM ‘'Sondage Mensuel 


Age : CPC’, La Haie de Pan, 35170 Bruz 
110 ES © D D OS OS OS OS ON OS UN UN ON CN CN OS ON ON ON OS OS ON OS OS OS OS DS ON ŒE 


Nom : ............. Prénom .............. 


g 
mas 1-2-85 


 MENSUEL. 


NUMÉRO 1 : Sdgtembre 1986 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, las peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘’généreux dona- 
teurs'’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis ‘’d’origine”’, ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d’un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


Vends Multiplan cause non usage : 250 F + frais 
de port. M. CLIVET, 25110 BAUME LES DAMES. 


Vends imprimante DMP 1, tbe : 1300 F. Tél. 


33.27.22.04 le soir + scriptor. 


Vends programrhes pour dBase Il prêt empl. (ges- 


tion articles parus dans revues ; prog. montages ou. 


autres). Modif. poss., prix bas, tél. 28.20.00.47. 


Vends AMSTRAD 664 avec moniteur couleur état 
neuf : 3500 F. Tél. 31.98.48.93. 


Cherche contact AMSTRAD sur Lille et région pour 
programmes, Modem et autres. Demander David 
au 20.93.67.24,. 


Vends CPC 464 coul. + lecteur disquettes + impri- 
mante + cr. optique + synthé vocal + très nom- 
breux logiciels. Tél. 26.64.61.82. 


Vends CPC 464 mono + DD1 + traitement texte 
+ dé/assembleur Dams + Turbo Pascal + Turbo 
Tutor/val : 6200 F + 720 K jeu, vendu 4500 F. Tél. 
48.58.64.84. 


Vends AMSTRAD CPC 6128 couleur + EPSON LX 
80, lect. K7, souris, joystick, câbles, Textomat, 13 
disques, 16 jeux, revues 6700 F. Tél. 
45.07.03.19 (92). 


Vends jeux sur disque pour CPC 6128. Possibilité 
d'échanges (jeux originaux). Téléphoner au 


‘48.74.74.09, demander Laurent. 


Vends moniteur couleur Fidelity CM 14 haute réso- 
lution s'adapte sur AMSTRAD, état neuf : 1600 F. 
Tél. 94.75.99.14. 


Vends CPC 6128 vert + imprimante GP 50 + joy- 
stick + 100 logiciels (val. 5000 F) + 2 livres, le 
tout : 5000 F. Tél. 45.76.07.30 le soir. 


Vends Spectrum Péritel 48 K, ZX1 + joystick QS2, 
magnéto, jeux, Hebdogiciel (19 au 150) : 1700 F. 
Philippe au (1) 60.46.49.86. 


664 déch. logiciel originaux sur K7 ou disquette. 
Vends ou échange revues (CPC, AM MAG, HEB- 
DOGICIEL), rép. ass. JP. DEMORE, 9 rue St. Nico- 
las, 48300 LANGOGNE. 


Vends CPC 464 sans moniteur + interface Péritel 
100 jeux : 2200 F. 30 originaux disques et K7 moi- 
tié prix. Jacky au 16 1 48.47.95.29. 


Vends CPC 664 couleur + lecteur de K7 + softs, 
le tout : 3500 F. Tél. 39.13.80.06 (région pari- 
sienne), demander Stéphan. 


Educatif agricole/Amstrad test-révision : TVA, 
marge, CEG, Bilan. Envoyer disquette + 200 F à 
G. FAUTHOUX, 32140 MASSEUBE. 


Vds imp. DMP1, exc. ét. + notice + supercopy 
+ hardcopy disc/K7..1500 F + Oric-Atmos, neuf 
dble emp., 250F. Tél. 91. 66.15.76, 19h, 
MARSEILLE. 


Vends Amstrad PCW 8256, traitement de textes 
achat mai 86 sous garantie, état neuf avec 2 dis- 
quettes et un ruban imprimante de rechange. 
4700 F. Jacques BOUSQUET. Tél. (16.1) 
34.85.85.36, après 18h. 


Cherche contacts pour échange des programmes 
sur disquette ou K7. R. J. Selsick, 22, pass. des 
Récollets. PARIS 75010. 


CPC 6128 cherche contact s. région valentinoise 
pour échanges. Christophe HARDY, 23, rue A. 
Paré, 26000 VALENCE. 


Vends MSX V20 + lect. K7 + prise périt. + bons 
jeux (Mandragore) + revues, t. b. ét., 1200 F à 
débattre. Tél. 88.31.56.00, après 18 heures. 


CPÈ 664 + AM5D + cherche contacts sérieux 
achète n° 1 à 33 SVM t. b. ét. M. PERRAUD, 1, 
place de l'Etale, 74000 CRAN-GEVRIER. 


Vends 6128 coul. nov. 85 + lecteur cas. 
+ joystick + disquettes + 3D Fight + Orphée 
+ bank + spitfire 40 + livres, t. b. ét. 5500 F. 
RICHE, tél. 30.53.39.13. 


Ach. Dbase Il, turbo, Pascal graphic (originaux), 
pour CPC 128. Roger Magnabosco, rue F. Lafont, 
07160 Le Cheylard, tél. 75.29.14.51. 


Vends PCW 8256 (déc. 85) + ext. 256 Ko 
+ imprimante + logiciels. 5000 F. Nicolas Bres- 
set, tél. 42.22.80.60. 


Vends disc dur Vortex 20 MO avec contrôelru et 
lecteur 51/4, neuf (avec garantie). Prix à discuter. 
Tél. (16) 61.54.67.04. 


Vends logiciels originaux sur disquette, Sorcery 
+ Commando, Cauldron 2, etc. 150 F/pièce. Envoi 
gratuit. Benoît au 56.07.03.94. 


Vends CPC 664 monochrome + jeux et utilitaires. 
3200 F. Jean, tél. 47.05.25.12, après 19h. 


Super-programme de calcul matriciel, non protégé, 
doc. 18 pages. 100 F. Routines pour Hisoft Pas- 
cal. 70 F. Accepte échanges. 43.38.62.71. 


Lorigr. D 160, Magic Painterd, 120 F, Tasco 4D, 
80, K7, azimutage, 80, Speedy wonder, 120,2en 
plus, 80 etc, originaux. Tél. Cabane 43.38.62.71. 


Vends imprimante DMP1, 1500 F à débattre. M. 
Duclaux, 3, montée du Château, 07100 Annonay. 


Vends CPC 464 + manuel + cassette de DEMO, 
ainsi que le lecteur DDI + Orphée. Prix 1600 F et 
1400 F. Tél. 48.54.75.55, à Rosny. 


LES PETITES ANNONCES ET LES MESSAGES 


Attention, vos PA seront mises sur le serveur avant la parution du journal 


[ 


5 


Hd 


É 


Coupon à renvoyer accompagné de 3 timbres à 2,20 F à: 
SORACOM, La Haïie de Pan —- 35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 


n2 


Vends PCW 8256, t. b. état, nombreux prog. 
+ doc., le tout 6000 F cause achat IBM. JL Cam- 
panotto, 23, rue P. Eluard, 27140 Gisors. 


Vends livres Amstrad en famille, super jeux Ams- 
trad, 102 programmes. Guy Casi Miro, 2, rue 
Aurore, Agne 34300, le tout 220F. Tél. 
67.94.37.47. 


Achète revues CPC n°° 1, 2, 3, 4, urgent. Veuil- 
lez écrire M. et Mme Matuszak Bruno, 4, rue du 
Clos, ‘’Bretonville'’, 78660 Ablis. 


Vends CPC 464 mono + impr. Seikosha 550 
+ doc. + livres. 4000 F. Tél. 47.06.64.54. 


Vends CPC 464 coul. + DD1 +35 disk = 
120 jeux, utilitaires turbo, p. calcumat + doc., etc. 
+ livres + revues. Tél Moudot JP, Paris, 
45.82.62.54, sacrifié 4500 F. 


Vends Mercitel, interface RS232 + modem. 
2100 F à débattre. Eric Lefevre, tél. semaine 
26.08.45.28, w.-end 26.69.11.06. 


Vends souris Amstrad + manuel + logiciel d'utili- 
sation. 490 F (garantie encore 9 mois). Tél. 
74.36.71.49, Daniel Herbepin. 


Vends joystick (quitshoot 2) + quelques jeux (ori- 
ginaux). Gomez Alban, tél. 48.90.96.70. 


Vends joystick (peu servi) + nombreux jeux (ori- 
ginaux) pour pas cher. Tél. 48.90.96.70. 


Vends 464 couleur + DD1 + joys. + sup. écran 
+ 20 K7 + 20 disk + boîte rangement + 7 livres, 
le tout t. b. ét. 5500 F. Jean-Luc, 47.07.19.66, 
après 21h. 


Vends CPC n° 1 à 15, 7 F/pièce. Alain Jacquot, 
127, rue Michel Ange, 75016 Paris, tél. (1) 
46.51.97.70, soir. 


Vends séries CPC et Ams. magazine n° 1 à 15, Oric 
à 2 ROMS, imprim. seikosha GP 100, nbx jeux et 
doc., modulateur. Tél. 20.34.93.13. 


Vends imprimante GP-500A + câble + doc. 
ensemble en tbe, prix à débattre. Tél. 22.47.40.12 
après 19h. 


Vends souris AMX compl. avec logiciels cass. + 
disc. + notice, état neuf (cause double emploi). T. 
DEMANGEAT, tél. 38.97.92.94 Courtenay 45. 


Vends ATARI 800 XL + cass. + jeux + adapta- 
teur antenne + livres. Tél. 20.07.80.65. F. DEL- 
BECQ, Rue Matteot, 6 cour Dorchies, 59120 
LOOS. 


Recherche logiciels et contacts pour CPC 6128. 
Tél. 43.48.92.38 après 20h. 

Vends CPC 664 couleur + imprimante Seikosha SP 
10004 : 5500 F. Contacter Elina après 19h au 
47.05.90.80 (Paris). 


Vends AMSTRAD PCW 8512 + DBase 2 + Turbo 
Pascal + CPC 8256 + 20 disquettes : 7500 F. 
69007 Lyon, tél. 78.58.98.49 après 19h. 


‘Vends CPC 6128 mono (état neuf) + 12 disquet- 
tes + 20 revues + 1 livre + joystick + 30 logi- 
ciels, valeur 5300 F, vendu : 4800 F. Tél. 
45.98.93.79. 


464 disks échange contact. J.-Luc au 64.30.89.96 
le soir. 


Vends CPC 664 + magnéto + 70 programmes + 
joystick + livres. Le tout : 4000 F. Ecrire à J.P. 
BARRIERE, Cazalis, 33113 ST. SYMPHORIEN. 


Vends encyclopédie ‘’ABC Informatique’’ (Editions 
ATLAS) 1920 pages en 8 tomes. Valeur : 1600 F, 
vendu 800 F. Tél. 87.04.95.10. 


Amis du loto, ne cherchez plus la Martingale introu- 
vable, laissez faire mes programmes super perfor- 
mants. Renseignements contre 4 timbres à G. 
HOH, 15 rue du Hohwald, 67800 HOENHEIM. 


Vends jeux originaux sur disquettes : Dragon's Lair, 
Starstrike Il, Révolution, Saï Combat, Colossus 4, 
Chess. Tél. 47.41.91.36 Nicolas. 


Club informatique région Cherbourg recherche 
contacts AMSTRAD. Ecire au Club Informatique La 
Falumée, BP 30, 50120 EQUEURDREVILLE. 


Vends CPC 464 coul. + drive DDI + imprimante 
DMP 1 + souris + synthé vocal + crayon optique 
+ compilateur + doc : 7500 F. Tél. 42.55.64.07. 


Vends CPC 464 coul. + drive DDI 1 + impr. 
DMP 1 + logiciels + livres : 7000 F. Pierre DUMO- 
LARD, 35 Chemin de Halage, 38000 GRENOBLE. 


Cherche contacts pour échanges sur 664, 6128, 
464 (avec drive). Eric, tél. 46.26.18.88, réponse 
assurée surtout après 18h. 


AMSTRAD CPC 464 coul. + DDI 1 + HSS + Pr. 
écr. + multiface + doc + 11 livres + jeux + utili- 
taires + 40 DK + 75 rev. div. val : 14500, vendu : 
9000 F à débattre. Tél. 47.32.19.25 après 19h. 


Vends 664 mono ext. 64 k DK RS 232 Textomat, 
Multiplan, Cobol, nbx jeux, joystick, revues : 
3000 F. Jean-Luc au (1) 45.33.03.86 ou 
42.85.08.33. 


Je recherche qui souhaiterait échanger logiciels. 
Ecrire Christian MINAMONT, O2 rue Charles Cré- 
pion, 37530 NAZELLES NEGRON (disc 3''). 


Vends CPC 464 coul. + drive DDI + joystick + 
65 jeux (D) + revues + ilvres : 3000 F. 86, bd Exel- 
mans, 75016 PARIS, tél. (1) 46.51.43.24 (Carlos). 


Vends logiciel 100 % créé par moi. À éducat. 
Astronom pour jeunes, CPC 6128, disc : 120F.M. 
BOMMEL, 78 rue Bruneau, 62110 HENIN. 


Vends ou échange originaux CPC HMS Cobra, Fer 
et Flammes, Passager Vent, Histoire d'Or, Harry, 
Miami, Light Force, Conan PEIGUS, 84690 
ANSOUIS. 


Vends originaux jeux PCW Histoire d'Or, Harrier, 
Colossus Chess, Cyrus Chess, Lord Bing, Bridge, 
Batman, Conan PEIGUS, 84690 ANSOUIS. 


Vends AMSTRAD CPC 464 mono + adapt. péritel 
+ joystick + 200 logiciels + câble stéréo + 
revues (63) + doc., valeur 4600, vendu 2990 F 
à débattre. Tél. (1) 64.03.33.57. 


Vends disque 3 origs. The Million, Triple Pack, Sor- 
cery + — 6 Computers Hits : 90 F. Disques 3'’ 
avec jeux et utilitaires (sur demande), tél. 
97.65.90.56. . 


Vends synthétiseur vocal CPC 464 + Bruce Lee 
+ Eden Blues, K7 : 400 F. Affaire ! Vends ordina- 
teur VG 5000 + K7 jeux 600 F. Tél. 
46.36.03.41. 


Cherche et échange logiciels éducatifs toutes sor- 
tes. M. PREVEAUX, 77154 VILLENEUVE LES BOR- 
DES, tél. 64.08.51.11 (6128). 


Cherche à louer votre interface RS 232 du PCW 
8256 caution en liquide + dédommagement, 2 
jours maxi. Tél. 45.39.86.32, dom. 45.85.08.06. 


Vends 464 + ext. SP 256 Vortex + DD1 + 20 
K7 jeux et util. + écran : 3500 F. Tél. 48.56.22.01 
Gérard. 


Cherche notice gestion familiale de Core sur dis- 
que AMSTRAD 464, rembourse frais photocopie 
et timbres. Tél. (1) 60.63.09.77 après 20h, merci. 


Cherche moniteur couleur 464 + imprimante 
DMP2000 ESO1 cadet 232 section. 13, Cnie Ent- 
soa - 63500 ISSOIRE. 


Vends imprimante Seïkosha SPC 10000 très peu 
servie + câble : prix neuf 3300 F cédée 2900 F 
+ Tasword gratuit. D. GIZARD - Lycée H. Friant 
- 39800 POLIGNY. 


Vends synthé DK'Tronics TBE + K) ou disc de 
fonction : 250 F. COURTACHON Eddy - 5, square 
Beauregard - 77000 MELUN - tél. 64.38.58.82. 


Vends logiciel de gestion de portefeuille très perf. 
pour CPC 6128, 664 : 800 F. Tél. 42.61.82.80 
D'ALESSANDRO - 13610 PUY STE REPARADE. 


Vends 3000 F 6128 MC, neuf (3 mois) + 100 logi- 
ciels (multiplan, DBase, jeux, utilitaires, etc). 
Echange 200 logiciels. Tél. 82.52.64.82. 


Vends jeux originaux prix sacrifié. Disquette 
(winter-games, etc) et K7. Tél. 43.75.64.26 et 
demander Frédéric. 


Vends Amstrad CPC 664, couleur + manuel + 
nbrx jeux (Sorcery + knight lord, fighter pilot, 
Alicn8, etc) exc. état : 3200 F. Tél. 35.26.43.50 
le midi. 


Vends PCW 8256 + drive FD2 + multiplan + 10 
disquettes sous garantie. Tél. 47.51.00.06 après 
19h00. 


CPC 464 mono, TBE : 1750 F, DD1 : 1500 F, sou- 
ris : 400 F. Mir. imager : 300 F. Logiciel + livres. 
M. JOLY - 92 RUEIL MALMAISON - tél. 
47.08.02.99. 


Vends CPC 464 coul. : 2700 F + DD11 : 1300 F 
+ RS232 Merci : 550 F + crayon optique : 150 F. 
CLICHY (92) Eric - tél. 47.31.67.83 entre 18h00 
et 20h00. 


Important : échange moniteur mono + 650 F + 
Caldron + million 1 (disq.) contre moniteur couleur 
(TN644 pour 6128). Tél. 39.62.70.13. 


Vends Amstrad, CPC 464 coul. + Joys + livres 
+ jeux + traitement de texte : 3300 F. Tél. 
1.42.52.88.77. 


Recherche Amstrad, CPC 464 (monochrome) : 
1800 F. Tél. 1.46.40.17.07 le soir à partir de 
20h30. Merci d'avance ! 


‘Vends 464 coul. 128 K + DD1 + joystick + livres 


+ logiciels. S. LE CAER - tél. 98.03.06.93 (Brest). 


Recherche notice du jeu meurtre à grande vitesse 
ou photocopie. Ecrire à M. DUQUENNE - 57, rue 
de Pontoise - 93240 STAINS. 


Vends ou échange crayon optique, infiltrator, Tor- 
nado, Tank (jeux originaux), prix à débattre. Tél. 
48.37.17.87 (BOURGET). 


Vends CPC 664 vert + ext 6 Uk + lecteur 38,5P 
+ imprimante Nec 80 col. + nbrx logiciels K7 ou 
disc 800. GOTTMANN 43.63.19.40. 


Vends CPC 464 couleur + 100 logiciels + joys- 
tick + livres + DD1 : 4000 F. Tél. le soir après 
20h00 34.61.33.50. 


Vends Amstrad CPC 664, mono + 40 jeux et utili- 
taires + péritel + magnéto + joystick : 3200 F. 
Tél. 44.05.09.35 BEAUVAIS. 


‘Recherche Amstrad CPC 464 (monochrome) : 


1800 F. Tél. 1.46.40.1 7.07 le soir à partir de 8h30. 
Vends Amstrad 464 monoch. + Joy + nbrx jeux. 


Bon état, cause double emploi. Tél. 66.77.35.20 
après 19h00. 
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NOUVEAUTES 
+ port 10% 


Compilation CPC 1-2-3-4 70F 

La pratique des imprimantes 

Michel ARCHAMBAULT 

[ Apprenez l'électronique sur AMSTRAD 
Michel ARCHAMBAULT 95 F 

1 exemplaire AMSTAR n° 10F 


LIVRES 
+ port 10% 


85F 


95 F 


Mieux programmer AMSTRAD 
Communiquez avec AMSTRAD 

D. BONOMO - E. DUTERTRE 
Jouez avec AMSTRAD 

KERLOCH 

Programmes utilitaires pour AMSTRAD 
Michel ARCHAMBAULT 

L'Univers des PCW — Patrick LEON 
Cassette 

Communiquez avec AMSTRAD 
Disquettes 

L'Univers du PCW -— Patrick LEON 


90F 


48 F 


85F 
119F 


190 F 


150 F 


A: TOTAL 
B : PORT 10% 


A + B TOTAL GENERAL 


ANCIENS NUMEROS 
Franco de port 


Attention, n° 1 à 5 et 12 épuisés 
6 


24F 
8, 9,10, 11,13, 14, 15, 16, 17, 18, 19, 20 25 F 
7,9 28 F 
Hors série n° 1 avec cassette 47 F 


NOM : 


Adresse : 


Hors série n° 2 sans cassette 
Hors série n° 3 sans cassette 
Entourez le (ou les) numéro(s) commandé(s). 


CASSETTES 
Franco de port 


Cassette N° 1 épuisée 

1 cassette représente un numéro 
[ abonné 

[ non abonné 

[ abonnement cassettes (11 n°) 

Je commande les cassettes n° 


DISQUETTES 
Franco de port 


1 disquette contient 2 n° consécutifs de CPC 
— Disquette n° 1 comprend CPC 1 et 2 

— Disquette n° 2 comprend CPC 3 et 4 

— Disquette n° 3 comprend CPC 5 et 6 

— Disquette n° 4 comprend CPC 7 et 8 

— Disquette n° 5 comprend CPC 9 et 10 

— Disquette n° 6 comprend CPC 11 et 12 
— Disquette n° 7 comprend CPC 13 et 14 
— Disquette n° 8 comprend CPC 15 et 16 
— Disquette n° 9 comprend CPC 17 et 18 
— Disquette n° 10 comprend CPC 19 et 20 
— Disquette n° 1 HS comprend CPC 1 HS 
— Disquette n° 2HS comprend CPC 2HS 
— Disquette n° 3 HS comprend CPC 3HS 


45 F — 
SO 
450 F 


[ abonné 

[ non abonné 

abonnement disquettes (6) 
Je commande les disquettes n° 


TOTAL GENERAL FRANCO 


Port en sus 10 % pour envois par avion 


Code postal : 


Date : 


Merci d'écrire en majuscules. 


Ville : 


Signature : 


Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photocopie à : Editions SORA- 


COM - La Haie de Pan -— 35170 BRUZ. 
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ENFIN REEDITES ! 


= &, OR 
en un seul livre 
C2 NUMEROS 


De nombreux 
programmes de jeux 
et utilitaires, des 
conseils pratiques, 
trucs et astuces, 
schémas, des 4 
premiers n° de CPC 
réunis en un seul 
livre. 


90 fes. 


AMAR 


rit 


_ ss 


Ti jm" BON DE COMMANDE 
mm” + 10 % port (Compilation CPC) 


NOM :;::2:. TT Prénom ............... 


Ci-joint chèque de .......................... à l’ordre de Bretagne Edit’ Presse 
à retourner à Bretagne Edit’ Presse - La Haye de Pan - 35170 BRUZ 


SORACQM 


INFORMIAI IQUE 


MICHEL ARCHAMBAULT 


PROGRAMMES 
WTILATAIRES pour 
ansTanl 


gjéghane Laurent Poscci 


DRERere 


Adresse 0 


——— 


| 


